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1.0  INTRODUCTION 


While  the  established  ship  motion  and  loading  methods  currently  used  in 
design  practice  remain  indispensable,  there  is  need  for  a  more  advanced  tool 
that  can  carry  the  ship  designer  a  step  closer  toward  a  fully  rational  ship 
design  procedure.  Although  the  application  of  linear  strip  theory  in  the 
frequency  and  probabilistic  domains  has  met  with  remarkable  success,  there  are 
a  number  of  practical  seakeeping  and  structural  loading  problems  not  satisfac¬ 
torily  analyzed  by  such  techniques.  Green  water,  bow  flare  impact  and  bottom 
slamming  are  particularly  obvious  examples.  Reported  large  differences  in 
dynamic  sagging  and  hogging  moments  in  some  type  of  ships  is  a  consequence  of 
nonlinear  loading  [1,2].  The  accurate  prediction  of  rolling  amplitudes  re¬ 
quires  the  use  of  a  nonlinear  restoring  moment  at  a  large  angle  and  nonlinear 
viscous  damping  estimates.  These  examples  tend  to  highlight  the  generally 
nonlinear  character  of  the  ship  motion  and  loads  problem.  An  equally  impor¬ 
tant  part  of  the  problem  is  its  three-dimensionality.  For  example,  the  pre¬ 
diction  of  hydrodynamic  pressures  on  the  ship's  hull  below  the  mean  waterline 
using  linear  two-  and  three-dimensional  methods  is  not  at  a  consistent  level 
of  accuracy.  Clearly,  there  are  a  number  of  areas  where  improvements  can  be 
made  in  ship  motion  and  loading  prediction. 

Based  on  an  extensive  review  of  the  reported  advanced  methods  in 
body-wave  hydrodynami cs  and  ship  motion/loads  prediction,  a  time-domain  simu¬ 
lation  of  ship  motion,  hull  girder  loads  and  hydrodynamic  pressures  has  been 
developed.  Strip  theory  with  certain  nonlinear  enhancements  is  used  to  pre¬ 
dict  sectional  hydrodynamic  forces  for  motion  and  hull  girder  loading  predic¬ 
tion,  and  a  three-dimensional  source  distribution  of  the  hull,  combined  with  a 
spectral  representation  of  the  free  surface  is  used  for  the  evaluation  of 
hydrodynamic  hull  pressures.  Linear  wave  theory  is  used  and  some  optional 
numerical  features  have  been  included  that  may  improve  the  predictions  in  some 
cases.  The  time-domain  numerical  simulation  technique  using  strip  theory-de¬ 
rived  forces  expands  upon  the  capsizing  simulation  work  of  Oakley,  Paulling, 
Wood  and  others  [3].  In  that  method,  the  hydrodynamic  forces  from  ship  motion 
and  diffraction  are  assumed  to  be  small  due  to  low  encounter  frequency  in 
following  and  quartering  waves  --  allowing  for  approximate  formulations.  On 
the  other  hand,  the  Froude-Kryl ov  forces  (hydrostatic  and  dynamic  buoyancy) 
are  computed  very  accurately  for  the  instantaneous  immersed  hull.  In  the 
present  model,  this  accurate  approach  to  Froude-Kryl ov  forces  has  been  used, 
while  the  ship  motion  and  diffraction-induced  forces  are  formulated  according 
to  standard  strip  theory  equations  [4], 

Three-dimensional  hull  pressures  and  resultant  loads  are  computed  by  a 
separate  method  based  on  Chapman's  techniques  for  the  simulation  of  arbitrary 
linearized  motions  of  a  floating  body  [5,6].  The  present  method  extends 
Chapman's  formulation  to  include  ambient  wave  field  and  associated  diffraction 
effects.  Although  the  three-dimensional  technique  can  be  generalized  to 
include  a  time-dependent  hull  shape,  the  computational  method  has  been  devel¬ 
oped  here  in  as  simple  a  form  as  possible.  Thus,  as  presently  established, 
the  hull  is  specified  by  surface  panels  describing  the  hull  portion  directly 
beneath  the  static-waterline  only.  The  computational  method  can  be  easily 
expanded  to  include  the  entire  hull;  however,  at  present  the  computational 
effort  to  run  a  program  with  such  an  extension  would  be  prohibitively  expen¬ 
sive. 
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Several  optional  features  have  been  incorporated  into  the  numerical 
simulation  procedures.  Sectional  added  mass  and  damping  coefficients  may  be 
evaluated  for  the  instantaneous  average  sectional  draft  at  each  time  step. 
Also  the  frequencies  at  which  the  added  mass  and  damping  coefficients  are 
evaluated  (for  ship  motion-induced  forces)  can  be  selected  to  correspond  to 
either  (a)  the  peak  frequencies  of  motion  response  spectra,  or  (b)  allowed  to 
vary  based  on  the  measured  response  of  the  vessel  during  the  previous  two 
cycles  of  motion.  Additionally,  a  vertical  velocity-squared  term  is  included 
in  the  strip  formulations  to  partially  account  for  the  effect  of  flare  impact 
loading.  Finally,  the  simulation  can  incorporate  the  effects  of  veloci¬ 
ty-squared  damping  using  quadratic  damping  coefficients  selected  by  the  user. 

It  should  be  pointed  out  that  because  the  majority  of  the  testing  and 
validation  efforts  described  in  this  report  use  regular  waves,  the  reader  may 
tend  to  form  the  impression  that  the  method  is  limited  to  rtgular  waves.  This 
is  not  the  case.  The  incident  wave  system  may  be  irregular  and  multidirec¬ 
tional.  It  is  constructed  from  the  superposition  of  regular  waves,  the  ampli¬ 
tudes,  frequencies,  directions  and  phases  of  which  may  be  specified  by  the 
user.  They  can  thus  be  selected  to  represent  the  time  history  associated  with 
any  given  sea  spectrum. 

This  document  (Volume  I)  describes  the  method  and  presents  some  test  and 
validation  results.  Several  computer  programs  were  written  to  implement  the 
approach  and  a  user's  manual  (Volume  II)  is  provided  as  a  companion  report. 


1.1  BACKGROUND 

In  recent  years,  a  number  of  impressive  advances  have  been  made  in  body- 
wave  hydrodynamics.  In  particular,  the  fast-growing  field  of  numerical  ship 
hydrodynamics  is  producing  a  wide  range  of  promising  techniques  with  the 
potential  to  handle  difficult  nonlinear  three-dimensional  hydrodynamic  phenom¬ 
ena.  It  is  enlightening  to  follow  the  progress  made  by  various  investigators 
as  presented  in  the  First,  Second  and  Third  International  Conferences  on 
Numerical  Ship  Hydrodynamics  in  1975,  1977  and  1981,  respectively.  Some  of 
those  efforts  and  others  pertinent  to  the  ship  motion  problem  will  be  noted. 

Efforts  towards  quasi -analyti cal  solutions  to  Laplace's  equation  using 
singularity  distributions  for  the  ship  motion  problem  have  been  reported  by 
Chapman  [6]  and  Chang  [7],  M.S.  Chang  represents  the  ship  hull  by  source/di¬ 
pole  distributions  and  solves  the  fluid  domain  and  free  surface  equations 
using  a  mean  hull  boundary  condition.  It  is  a  frequency-domain  solution  and 
appears  to  be  an  excellent  way  to  find  the  correct  linear  wave  excitation  load 
distribution  along  the  ship  for  any  heading,  speed  and  wave  length.  Solutions 
in  the  frequency  domain  assume  that  the  response  of  the  body  to  excitations  of 
varied  frequency  content  may  be  represented  as  the  linear  summation  of  re¬ 
sponses  to  a  series  of  discrete  frequencies.  Thus  the  equations  of  motion 
need  to  be  solved  only  for  the  component  frequencies.  In  contrast,  in  a  time- 
domain  solution,  a  time-history  of  the  excitation  is  decomposed  into  a  series 
of  time  steps  with  the  time  history  of  the  response  constructed  by  re-solving 
the  equations  of  motion  at  each  time  step.  R.B.  Chapman's  method  is  a  time- 
domain  computation  somewhat  ahalagous  to  Chang's  approach.  However,  it  does 
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not  use  Green's  functions  representing  solutions  of  the  free  surface  equations 
for  oscillating  singularities  moving  with  uniform  speed  as  does  Chang.  Simple 
sources  and  their  image  are  used  to  represent  the  hull.  Although  the  problem 
is  linearized,  the  method  is  theoretically  capable  of  accounting  for  a  time- 
dependent  hull  shape.  It  thus  provides  the  flexibility  of  arbitrary  motions. 

Another  effort  using  singularity  distributions  includes  that  of 

Pettersen  [8].  Pettersen's  work  is  particulary  interesting.  As  the  problem 
is  now  formulated,  he  solves  the  integral  equation  at  zero  frequency  for 
three-di mens i ona 1  sources  over  the  bow  and  stern  and  two-dimensional  sources 
using  strip  theory  for  the  middlebody.  The  approach  has  applications  for  ship 
maneuvering  analysis  but  some  work  is  being  done  for  u>  *  0.  Methods  of 
finite  difference  potential  field  solutions  to  a  free  surface  and  wave  prob¬ 
lems  have  been  reported  by  von  Kerczek  [9]  and  McCormick  and  J.W.  Thomas  [10], 
to  mention  only  a  few. 

Bai  [11]  has  continued  to  develop  a  finite  element  method  applied  to  a 
three-dimensional  harmonic  ship-motion  problem.  The  computational  domain  is 
reduced  to  a  very  small  local  domain  using  an  eight-node  three-dimensional 
element.  The  work  is  a  direct  extension  of  the  earlier  work  by  Bai  and  Yeung 

[12].  Other  studies  of  finite  element  method  applied  to  time  harmonic  ship 

motion  problems  have  been  presented  by  Chen  and  Mei  [13],  Seto  and  Yamamoto 
[14],  Yue,  Chen  and  Pfei  [IB]  and  Chowdbury  [16].  Emphasis  in  these  cases  is 
on  the  solution  of  regular  harmonic  motions,  although  finite  element  tech¬ 
niques  have  also  been  applied  to  transient  problems  by  J.T.  Beale  [17]  and  C. 
Licht  [18].  A.  Jami  and  M.  Lenoir  [19]  present  a  method  for  coupling  finite 
elements  and  an  integral  representation. 

Limited  improvements  to  strip  theory  in  the  area  of  wave  excitation  and 
diffraction  effects  have  been  reported  by  S.O.  Skjordal  [20],  and  Troesch 
[21]. 


Research  in  the  area  of  incompressible  viscous  flow  has  yielded  several 
interesting  techniques.  Bourianoff  ana  Penumalli  [22]  have  developed  a  three- 

dimensional  time-dependent  ship  motion  simulation  using  a  method  they  call  the 

Inertial  Marker  Particle  (IMP)  technique.  It  is  a  Eulerian  approach.  A 
Eulerian  approach  uses  a  space-fixed  reference  system  through  which  the  fluid 
flows.  In  the  alternate  Lagrangian  description,  the  reference  frame  moves 
with  the  fluid.  A  Lagrangian  approach  to  transient-free  surface  flows  was 
reported  by  Fritts  and  Boris  [23],  Nichols  and  Hi  rt  [24]  report  on  progress 

being  made  with  variants  and  improvements  of  the  original  Fterker-and-Cel  1 
method  in  free-surface  computations. 

In  the  area  of  ship  motion  and  loads  prediction,  the  more  advanced 

methods  incorporate  a  time-simulation  approach  using  some  form  of  strip  the¬ 
ory.  The  primary  motivation  for  the  development  of  this  class  of  simulation 
programs  is  to  account  for  nonlinearities  from  various  sources.  Paulling, 
Oakley  and  Wood  [3]  were  interested  in  the  capsizing  problem  with  emphasis  on 
accurate  computation  of  buoyancy  forces.  Chang  [25]  developed  a  motion  simu¬ 
lator  emphasizing  non-rigid  body  structural  response  to  regular  head  seas. 
Meyerhoff  and  Schlacter  [26]  emphasized  the  dynamic  whipping  response  due  to 
bottom  and  flare  impact  in  unidirectional  irregular  head  seas.  Borresen  and 
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Telsgard  [27]  emphasized  the  nonlinear  effects  of  bow  flare  on  motions  and 
rigid  boay  hull  girder  loads.  In  the  last  three  references,  the  relative 
motion  hypothesis  is  employed  in  each  case,  and  the  frequencies  at  which  the 
hydrodynamic  coefficients  are  evaluated  are  usually  the  frequency  of 
encounter  (u.>  )  or  infinite  frequency  (u^)  .  Also,  the  methods  in  the  last 

three  references  treat  only  pitch  and  heave  in  unidirectional  regular  waves. 

In  view  of  these  reported  successes  with  the  time-step  solution  to  the 
equations  of  motion  and  the  method's  general  capability  of  incorporating  loads 
of  a  nonlinear  character,  this  approach  will  be  used  as  the  basis  of  the 
present  model.  It  is  also  intended  that  some  type  of  three-dimensional  hydro- 
dynamic  formulation  cast  as  an  initial  value  problem  would  be  integrated  with 
the  motion  simulator  from  which  initial  and  boundary  values  would  be  speci¬ 
fied.  As  noted  before,  a  finite  difference  solution  to  the  Euler  equation  was 
initially  chosen  based  on  the  reported  successes  of  Bourianoff  and  Penumalli 
[22].  The  technique  developed  to  apply  this  finite  difference  solution  is 
described  in  [28].  The  fundamental  difficulty  with  using  this  technique  for 
ship  motion  and  transient-f ree  surface  simulation  was  the  conflicting  demands 
of  numerical  stability  vs.  realistic  fluid  dynamics.  The  finite  difference 
Euler  equation  solution  method  was  abandoned  after  it  became  apparent  that 
some  of  the  numerical  difficulties  could  not  be  overcome  within  the  scope  of 
this  project.  Alternative  methods  were  investigated,  and  the  technique  devel¬ 
oped  by  R.B.  Chapman  reported  in  [6]  was  selected  because  of  its  ability  to 
predict  three-dimensional  flow  and  handle  arbitrary  motions  and  time-dependent 
hull  shapes.  Its  principal  disadvantage  is  the  fact  that  it  is  computation¬ 
ally  demanding,  requiring  long  run  times.*  Nevertheless,  in  view  of  the  ever- 
increasing  capabilities  of  modern  computational  hardware,  the  use  of  the 
Chapman  method  and  others  like  it  should  become  practical  in  the  near  future. 


*  Prescribed  motion  of  a  120-panel  body  requires  7  CPU  minutes  per  time  step 
(0.1  sec  <  t  <  0.25  sec)  on  a  DEC  VAX  11/750  or  roughly  20-25  CPU  secs  on  a 
so-called  supercomputer  (e.g. ,  CRAY  or  CDC  STAR). 
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2.0 


THEORETICAL  MODEL 


2.1  GENERAL  FORMULATION  OF  EQUATIONS  OF  MOTION 

The  equations  of  motion  for  the  ship  can  be  derived  from  Newton's 
second  law  and  formulated  as  four  first-order  ordinary  differential  equations, 
the  solution  of  which  gives  translational  and  rotational  displacements  and 
vs’ocities.  Solution  is  accomplished  in  a  time-step  fashion  using  a  fourth- 
order  Runge-Kutta  integration  scheme.  The  external  forces  and  moments  called 
for  in  the  equations  of  motion  are  calculated  using  an  extension  of  basic 
strip  theory  to  derive  ship  motion-induced  and  diffraction  forces.  Froude- 
Krylov  forces  are  computed  using  a  volume  integral  approach  over  the  instanta¬ 
neous  immersed  hull.  The  incident  wave  system  is  represented  by  one  or  more 
linear  waves  of  arbitrary  amplitude,  direction,  frequency  and  phase  relation¬ 
ship. 

The  ship  is  considered  to  be  advancing  with  forward  speed  with  an 
arbitrary  heading  in  a  system  of  sinusoidal  waves  of  various  amplitudes, 
frequencies  and  directions.  Let  (x,y,z)  be  a  Cartesian  coordinate  system 
fixed  in  space.  Let  (x',y',z')  be  a  Cartesian  coordinate  system  fixed  with 
respect  to  the  ship,  whose  axes  coincide  with  the  principal  axes  of  inertia  of 
the  ship  and  whose  origin  corresponds  to  the  ship's  center  of  mass.  The 
direction  of  the  axes  are  illustrated  in  Figure  la. 

The  position  of  the  ship  in  space  is  completely  characterized  by  the 
position  of  the  ship's  mass  center  and  the  angular  displacement  of  the  ship. 
Eulerian  angles  will  be  used  to  describe  angular  displacement.  Figure  lb 
shows  the  convention  for  the  Eulerian  angles. 

The  motion  of  the  ship  in  an  inertial  frame  of  reference,  according  to 
Newton's  second  law,  can  be  formulated  using  subscript  notation  as 


M..  Vr  =  F. 
dt  Jk  Gk  j 

(j 

=  1,2,3) 

(1) 

d  T  T 

dt  jk  k  j 

(j 

=  1,2,3) 

(2) 

in  which 


=  components  of  mass  matrix 


=  components  of  moment  and  product  of  inertia  matrix 
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i 


=  translational  velc:ities  of  center  of  mass  in  space  fixed  system 
“  dt  KG 

=  rotational  velocities 


km  dt 


1  sin  \p  6 

0  cos  6  cos  \p  sine 
0  -sin  6  cos  ^  cos  e 


=  {  6  .  4>  ,  'i'  ) 


6  =  Eulerian  roll  angle 


=  Eulerian  yaw  angle 


v  =  Eulerian  pitch  angle 


F .  =  external  forces 

J 


T.  =  external  moments 
J 


In  the  ship  coordinate  system,  the  left  side  of  equation  (2)  takes  the 
following  form: 


dt  * 1  jt  “k* 


*jk  dt  "k  *  "k  x  ’jk  "k 


I 
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This  is  the  Eulerian  equation  of  motion  whose  application  makes  possi¬ 
ble  the  use  of  constant  moments  and  products  of  inertia.  In  the  inertial 
frame  of  reference,  these  values  are  continuously  changing. 

Equations  (1),  (2)  and  (3)  can  be  manipulated  to  yield  the  following 
two  sets  of  two  first-order  ordinary  differential  equations: 


—  X 
dt  \ 

=  Vr 

Gk 

(k  =  1,2,3) 

(4) 

dt  \ 

=  (M'J"1  F- 

v  Jk'  J 

(k  =  1,2,3) 

(3) 

d 

err  a 
dt  m 

(Bkm)  wk 

(m  =  1,2,3) 

(6) 

d 

dt  “k 

-  (V“11TJ 

~  wk  x  Ijk  wk^  ^  =  ^ ^ ^ ) 

(7) 

Assuming  that  the  ship  has  lateral  symmetry,  the  mass  matrix  is  given 

by 


Ms  0  0 

0  M$  0 
0  0  Ms 


+  A 

jk 


(j  «  1,2,3) 


(8) 


where  Ajk  represents  added  mass.  The  ship's  mass  is  shown  as  ^  within  the 
brackets . 


The  moment  and  product  of  inertia  matrix  is  given  as 


Ill 

hi 

I3 1 

(9) 

J12 

hz 

*32 

+  A 

mn 

(j  =  1,2,3) 

Jl3 

J23 

I33 

(m  *  4,5,6) 

where  A  represents  added  mass  coefficients,  and  the  values  within  the 
mn 

brackets  represent  ship  moment  and  products  of  inertia. 
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If  we  can  evaluate  the  external  forces  (F^)  and  moments  (T-)  required 

J 

by  expressions  (5)  and  (7),  we  can  solve  for  the  ship  translational  (Vg)  and 

rotational  (u )  velocities.  These,  in  turn,  are  used  in  equations  (4)  and  (6) 
to  yield  the  ship  translational  (Xg)  and  rotational  (a)  displacements.  The 

integration  of  these  four  first-order  ordinary  differential  equations  is 
performed  numerically  with  the  fourth-order  Runge-Kutta  scheme. 

Thus,  the  prediction  of  ship  motions  by  this  method  then  becomes  a 
matter  of  predicting  the  external  forces  and  moments.  The  various  types  of 
forces  and  moments  which  comprise  the  total  force  and  moment  used  in  equations 
(5)  and  (7)  are  outlined  in  the  following  section. 


2.2  EVALUATION  OF  EXTERNAL  FORCES  AND  MOMENTS 

ihe  basic  method  used  to  evaluate  the  external  forces  will  be  based  on 
strip  theory.  This  approach  is  used  to  evaluate  forces  throughout  the  simula¬ 
tion  of  ship  motions  and  loads.  An  additional  and  important  feature  is  the 
prediction  of  pressures  on  the  hull  using  a  three-dimensi onal  hull  source 
representation.  The  resultant  force  on  the  ship  from  these  pressures  can  be 
substituted  for  the  hydrodynamic  forces  predicted  from  the  strip  approach  into 
the  equations  of  motion  for  a  selected  interval  of  time.  The  interval  of  time 
for  which  thi..  force  substitution  may  be  made  must  be  limited  in  order  to 
minimize  the  considerable  computing  effort  associated  with  a  three-dimensional 
solution  in  the  time  domain.  Figure  2  depicts  this  procedure.  It  should  be 
emphasized  that  the  formulations  for  the  two  methods  (strip  and  three-dimen¬ 
sional)  are  separate  and  distinct  and  each  can  provide  force  information  for 
the  solution  of  the  equations  of  motion. 

A  brief  outline  of  the  force  components  that  comprise  the  total  force 
used  in  the  ship  motion  equations  follows.  We  first  examine  the  strip  method 
followed  by  a  brief  discussion  of  the  three-dimensional  method. 


2.2.1  Strip  Approach  Forces 


Following  strip  theory,  we  will  assume  that  the  hydrodynamic  force 
acting  on  the  ship  can  be  decomposed  into  three  parts: 

(a)  Froude-Kryl ov  Force  -  The  resultant  force  from  the  pressure  in  the 
waves  which  acts  on  the  hull  surface  with  the  assumption  that  the 
pressure  field  is  not  affected  by  the  presence  of  the  ship. 

(b)  Diffraction  Force  -  A  correction  to  the  Froude-Kryl ov  force  that  ac¬ 
counts  for  the  disturbance  of  the  ambient  wave  field  by  the  presence  of 
the  ship. 
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Figure  2  Diagram  of  Computational  Scheme 
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(c)  Ship  Mpt i on- Induced  Force  -  The  force  resulting  from  the  motion  of  the 

ship  with  the  assumption  that  it  undergoes  this  motion  in  calm  water. 

The  evaluation  of  the  Froude-Kryl ov  forces  is  obtained  by  integrating 
the  pressure  existing  in  the  undisturbed  waves  over  the  wetted  surface  of  the 
hull.  The  evaluation  of  the  diffraction  force  and  ship  motion-induced  force 
will  generally  be  according  to  the  elementary  strip  theory  (see  Raff  [4]). 
Linear  wave  theory  is  employed  and  it  will  be  assumed  that  the  Froude-Kryl  ov 
pressure  and  diffraction  force  evaluated  in  an  irregular  wave  system  is  equiv¬ 
alent  to  the  summation  of  the  pressures  and  forces  from  the  individual  waves 
that  comprise  the  irregular  system. 

The  calculation  of  added  mass  and  dumping  coefficients  used  in  the 
evaluation  of  diffraction  and  ship  motion-induced  fore* s  is  by  the  Frank 
close-fit  method.  Because  these  coefficients  are  frequency  dependent,  a 
problem  exists  as  to  which  frequency  to  use  in  the  ship  motion-induced  force 
calculations  since  the  ship  motion  may  be  irregular  (non-harmonic).  One 
approach  taken  by  several  investigators  [26,  27]  is  to  select  a  constant  set 
of  coefficients  associated  with  one  frequency. 

We  propose  two  other  approaches  and  h.  .t..v  examine  the  effect  of  each 
in  Section  3.3.  The  first  and  simple-  method  is  for  a  user-specified  fixed 
value  associated  with  the  highest,  peak  of  the  response  spectra  obtained  from  a 
frequency  domain  analysis  or  sea  spectrum.  The  second  approach  is  based  on  a 
scheme  that  samples  the  previous  two  ?er^-crossi ng  periods  of  motion  in  sway, 
heave  and  roll.  The  two  values  are  averagea,  and  three  characteri sti c  fre¬ 
quencies  are  derived  for  evaluation  of  the  sectional  hydrodynamic  coeffi¬ 
cients.  The  sway-roll  or  roll-sway  coefficients  are  (arbitrarily)  linked  to 
the  sway  characteri stic  frequency. 

In  frequency  domain  strip  theory  formulations,  the  added  mass  and 
damping  coefficients  are  evaluated  at  the  still  waterline.  In  the  present 
formulation,  at  each  time  step,  two-dimensional  hydrodynamic  coefficients  can 
be  evaluatea  for  each  section  at  either  the  mean  still  water  draft  or  at  the 
instantaneous  depth  of  immersion.  When  it  is  desired  that  the  hydrodynamic 
coefticients  be  draft  dependent,  the  coefficients  are  obtained  by  linear 
interpolation  from  an  array  of  six  values  corresponding  to  six  drafts  covering 
a  range  from  near  the  baseline  to  the  deck  edge.  Since  the  hydrodynamic 
coefficients  are  also  frequency  dependent,  they  are  selected  using  linear 
interpolation  from  an  array  of  twelve  values  associated  with  a  range  of  twelve 
frequencies  specified  by  the  user.  Thus,  when  the  two-dimensional  sectional 
coefficients  are  to  be  both  draft  and  frequency  dependent,  two-dimensional 
linear  interpolation  is  performed. 

One  of  the  advantages  of  the  time  domain  approach  is  that  it  provides 
the  capability  to  predict  the  ship  motion  and  loads  response  to  virtually  any 
force  for  which  there  is  an  evaluation  method.  The  force  may  be  an  arbitrary 
function  of  space  and  time,  or  a  function  of  absolute  or  relative  ship  posi¬ 
tion  or  velocity.  Assuming  there  is  an  acceptable  method  of  predicting  the 
associated  force  and  moment,  we  could  incorporate  into  the  present  method  such 
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phenomena  as  bottom  slamming,  flare  slamming,  and  the  shipping  of  green  water; 
as  well  as  wind  forces,  mooring  forces,  rudde'  and  propeller  forces,  viscous 
and  appendage  related  damping,  etc.  The  incorporation  of  methods  to  evaluate 
most  of  these  forces  will  be  left  as  the  subject  of  subsequent  investiga¬ 
tions.  We  will,  however,  include  here  a  flare  force  prediction  method  and 
also  the  means  to  incorporate  a  quadratic  damping  force.  For  flare  impact 
force,  we  will  use  the  approach  described  by  Meyerhoff  [26]. 


2.2.2  Three-Dimensional  Pressure  and  Forces 

The  ship  hull  is  modeled  by  quadrilateral  panels.  At  the  center  of 
each  panel,  the  pressure  is  evaluated,  and  resultant  forces  may  be  obtained. 
The  pressure  computed  by  this  method  includes  the  Froide-Kryl ov  pressure 
(excluding  the  hydrostatic  part),  the  diffraction  pressure  and  the  ship  mo¬ 
tion-induced  pressure.  Further  description  of  this  method  will  be  left  to 
Section  2.5,  where  it  is  discussed  in  detail. 


2.2.3  Total  Force  Equations 


The  total  force  equations  are  given  using  the  notation  shown  below. 
The  force  for  each  degree  of  freedom  is  indicated  by: 


X  =  longitudinal  force 
Y  =  vertical  force 
Z  =  lateral  force 
K  =  roll  moment 
N  =  yaw  moment 
M  =  pitch  moment 


Subscripts  to  these  force  symbols  specify  the  type  of  force  according  to: 


b  =  Froude-Krylov 
h  =  ship  motion-induced 
w  =  wave  diffraction 
f  =  "flare"  force 
q  =  quadratic  damping  force 
t  =  total  force 


Two  sets  of  equations  will  be  given;  the  first  showing  the  force  compo¬ 
nents  normally  used  during  the  simulation,  and  the  second  showing  the  force 
components  when  the  three-dimensional  method  is  invoked.  The  external  forces 
(F)  and  moments  ( M)  used  in  the  equations  of  motion  (5)  and  (7)  can  be  assem¬ 
bled  from  various  sectional  force  components  accorJing  to: 


F 


1 


(10) 
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dYh 

dY 

dY. 

c 

dYw 

F2 

-  / 

n  . 

-  dx 

dx 

+ 

/ 

w 

dx 

+  J 

dx 

-  dx 

+  / d r 

dx  + 

Y 

q 

(ID 

dZh 

dZ 

d2h 

F3 

-  7 

dx 

dx 

+ 

/ 

w 

dx 

dx 

+  I 

dx 

dK  +  Zq 

(12) 

dK. 

dK 

dK. 

T1 

=  I 

dx 

dx 

+ 

/ 

w 

dx 

dx 

+  J 

D 

dx 

dx  +  Kq 

(13) 

T2 

-  I 

d2h 

X  03 - 

dx 

dx 

+ 

I  x 

d2w 

dx 

dx 

*J 

dN, 

dT  dx  + 

N 

q 

(14) 

dYh 

dY 

dYf 

cIM 

T3 

=  / 

h 

x  dx 

dx 

+ 

I  x 

w 

dx 

dx 

-I 

xdr~dx 

dx  dx  +  Mq 

(15) 

All  integrations  are  performed  over  the  length  of  the  ship.  The  strip  theory 
equations  used  to  evaluate  the  sectional  forces  are  given  in  Section  2.4.  As 
will  be  seen  in  that  section,  in  the  equations  for  the  sectional  ship  motion- 
induced  forces  there  is  a  part  related  to  acceleration.  These  acceleration- 
related  forces  cannot  be  computed  directly  at  any  particular  time  step,  since 
the  acceleration  values  at  that  time  are  not  a  priori  known.  Consequently 
the  acceleration  force  terms  in  those  equations  are  extracted  and  transferred 
to  the  mass  moment  and  product  of  inertia  matrices  as  the  second  terms  in  the 
right-hand  side  of  expressions  (8)  and  (9)  given  earlier.  These  matrices  are 
assembled  according  to  the  following  expressions: 


A2 2  —  / ^22  dx 


^3  3  =  Ja3  3  dx 

A*. 3  =  /a34  dx 

At, 4  =  / a4li  dx  (16) 


A45  *  /xa34  dx 
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^55  =  /xa33  dx 

.  2 

^55  '  Jx  a33  dx 

^62  =  /  xa22  dx 

.  2 

^6  =  Jx  a22  dx 


with  the  remaining  values  of  A-^  =  0.  All  integrations  are  over  the  length 
of  the  ship.  J 

When  the  three-dimensional  pressure  calculational  procedure  is  run 
concurrently  with  the  stripwise  force  calculations,  three-dimensional  pressure 
forces  may  be  substituted  for  the  stripwise  hydrodynamic  forces.  During  such 
an  interval,  the  force  expressions  (10)  -  (15)  would  instead  appear  as: 


(17) 

(18) 

(19) 

(20) 

(21) 

(22) 
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where  X^  ...  are  the  hydrostatic  force  components  of  the  Froude-Krylov 
forces,  and  ...  M2Q  are  the  force  components  calculated  from  the  three- 

dimensional  pressure  computations. 

This  completes  the  formulation  of  the  equations  of  motion  and  the  force 
equations.  The  next  several  sections  will  present  the  computation  of  the 
Froude-Krylov  force,  the  sectional  diffraction  and  ship  motion-induced  forces, 
the  flare  impact  force,  and  the  three-dimensional  pressures  and  resultant 
forces . 


2.3  FROUDE-KRYLOV  FORCES 

We  will  assume  that  the  elevation  of  the  sea  surface  n  (x,t)  can  be 
described  as  the  superposition  of  a  number  of  sinusoids  of  the  form: 


n  (x,t) 


i  =1 


1 ' 

ai  cos  (1c.  x  -  uKt  +  e.j )  =  l 


i  =1 


(23) 


The  expression  for  hydrostatic  and  dynamic  pressure  can  be  derived  from 
Bernoulli's  equation  and  the  definition  of  velocity  potential  for  the  incident 
wave  field.  If  we  include  only  the  linear  terms,  and  consider  only  deep 
water,  the  expression  for  pressure  may  be  given  as 


N  k.y 

P(t ,x,y ,z)  =  -  pg  [  y  -  1  e  nH  ]  (24) 

i  =  1  1 


The  Froude-Krylov  force  may  be  obtained  by  integrating  the  pressure  over  the 
immersed  surface  of  the  ship.  This  surface  integral  may  be  replaced  by  a 
volume  integral,*  so  that  the  expressions  for  total  Froude-Krylov  forces  and 
moments  can  be  given  by  the  integral  of  the  pressure  gradients.  Sectional 
forces  can  be  evaluated  according  to: 


dydz 


*  Gauss  Theorem  - 

F  =  J  J  ap  dA  -  J  JJ  V/>  <JV 
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^b 

dx 

= 

SS  !£  dydz 

dx 

= 

II  || 

dku 

b 

dx 

= 

1!  <’!?-*!!> 

dydz 

dN, 

b 

dx 

- 

//  <*  If  -  *  It ) 

dydz 

(25) 

n 

dx 

- 

;/  <*!?-*£) 

dydz 

For 

each 

section,  vertical 

integration 

extends  to  the  wave  surface 

rather  than  the  mean  water  level.  This  fact  necessitates  some  sort  of  approx¬ 
imation  to  evaluate  pressures  in  the  free  surface  zone  since  linear  wave 
theory  implies  infinitesimal  amplitudes  which  do  not  extend  measurably  above 
or  below  the  mean  water  level. 

From  a  review  of  the  relevant  literature,  there  appear  to  be  three 
basic  approaches  for  approximating  the  velocities  and  pressures  in  the  free 
surface  zone: 

(a)  Unmodified  Formula  -  Use  the  same  formulas  (for  pressure)  above  mean 
sea  level  that  apply  below  sea  level.  (Eq.  26  with  no  restrictions  on 

y.) 

(b)  Stretching  Correction  -  Stretch  the  still  water  level  in  the  formula  to 
the  sea  surface. 

(c)  Hydrostatic  -  Assume  the  pressure  in  the  wave  above  the  mean  water 
level  is  hydrostatic. 

There  is  not  sufficient  experimental  data  to  support  the  use  of  one  scheme 
over  the  next.  The  CAPSIZE  program  [29]  uses  the  unmodified  formula.  There 
are  also  some  limited  experimental  data  obtained  by  Chakrabarti  [30]  to  indi¬ 
cate  that  a  hydrostatic  pressure  assumption  is  accurate  in  regular  waves.  If 
we  select  the  hydrostatic  assumption,  the  pressure  equation  may  then  be  writ¬ 
ten  as 


N  k  .y 

p  (t,x,y,z)  =-pg[y-Ie  n,  ]  y<o  (26) 

i  *1 
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y  >  o 


(27) 


N 

p  (t,x,y,z)  =  -  pg  (y  -  z  n.  ) 

i  =1  1 


The  differences  in  ship  response  as  a  result  of  using  the  unmodified  pressure 
formula  above  the  mean  waterline  were  investigated.  Comparisons  for  heave  and 
pitch  response  of  the  SL-7  contai nershi p  in  15-foot  waves  indicated  that  the 
differences  were  negligible.  In  any  event,  both  methods  are  approximations. 
Their  use,  however,  is  necessitated  by  the  employment  of  linear  wave  theory, 
and  we  therefore  cannot  escape  the  use  of  such  simplifications.  The  computer 
code,  as  presently  written,  allows  the  user  to  select  either  approximation. 


2.4  SECTIONAL  HYDRODYNAMIC  FORCES 

Following  elementary  strip  theory,  local  sectional  hydrodynamic  forces 
induced  by  the  ship's  motion  and  by  diffraction  force  for  heave,  sway  and  roll 
are  given  in  this  section.  The  equations  given  below  are  equivalent  to  the 
basic  equations  given  by  Raff  [4]  in  SSC-230.  Flare  impact  force  and  quad¬ 
ratic  roll  damping  are  also  discussed. 


Vertical  Sectional  Ship  Moti on- Induced  Force 


dYh  . 

=  *  a22  (*G  +  -  2LV  ) 


•  • 

■  ^>2  2  (y q  +  -  Ity  )  ( 28) 


da22  •  • 

+  u  IT  (yG  +  x*  -  ^  ) 


Vertical  Sectional  Diffraction  Force 


dyw  N  .  da22 

Tx r  =  ir=1  [ci  a22  +ri(b22  -  u  sr~)  3 


(29) 
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Roll  Sectional  Diffraction  Force 


dK  N  _  da44 

dx~  =  .l_l  {*i^  ‘  *i  “diT  ' 

-  [Cihcga34  -  +  b34)]} 


dZ 
_ w 

Vg  dx 


(33) 


Following  the  procedure  used  in  the  program  CAPSIZE  [29],  each  ship 
section  is  defined  as  a  closed  polygon  made  up  of  straight  line  segments 
between  offsets.  The  integrals  of  vertical,  horizontal  and  "roll"  wave  ve1or- 
ities  and  acccel erati ons ,  as  well  as  pressure  gradients  over  each  section,  are 
evaluated  exactly  at  each  time  step.  Longitudinal  integrations  of  sectional 
diffraction  forces  and  Froude-Kryl ov  forces  (excluding  hydrostatic  component) 
are  performed  assuming  the  sectional  forces  are  functions  of  the  following 
form  : 


f ( x )  =  Z  [Ci  cos  (k.x)  +  S i s i n  (k^)  ] 


where 


S.j  ,  C.j  -  sine  and  cosine  components  of  force  fluctuation  for 

wave  component  i,  the  relative  magnitudes  of  which 
provide  the  proper  phase  relationship  of  all  wave-re¬ 
lated  forces. 


k.  =  projection  of  the  wave  number  onto  the  x-axis  of  ship. 

Longitudinal  integrations  are  performed  assuming  and  vary  linearly  along 
the  ship's  length. 


Flare  Force 


The  approach  for  evaluating  flare  force  is  actually  an  extension  of  the 
strip  theory  expressions.  Its  incorporation  into  the  present  methodology 
serves  to  highlight  the  capability  of  the  time  domain  method  to  account  for 
the  effects  of  the  above-waterline  hull  on  motions  and  loads.  Furthermore, 
earlier  work  by  Kaplan  [31],  Borreson  and  Tellsgaard  [27],  and  Meyerhoff  [22] 
have  already  provided  the  basic  method  to  compute  flare  forces. 
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Following  the  approach  described  by  Vfeyerhoff,  the  time  derivative  of 
the  relative  wave  elevation  for  any  strip  ma>  be  given  as 


nr  =  —  n  -  yG  -  t  t  U 
e 


where  n  denotes  the  time-derivative  of  the  wave  elevation  relative  to  the 
ship-fixed  coordinate  system,  uiQ  is  wave  frequency  and  ojg  is  frequency  of 

encounter.  The  convective  derivative  of  relative  velocity  is  accounted  for  by 
the  factor  /  w  .  In  the  derivation  of  che  expression  for  hydrodynamic 

inertia  forces  in  the  strip  method,  it  can  be  shown  that  a  nonlinear  term 
results  which  represents  an  impact  term.  It  contains  the  square  of  the  rela¬ 
tive  velocity,  and  according  to  Mayerhoff  [26]  appears  as: 


D,f  -2 

Ox  *  “ 


where 


3  a22  (“  ) 

u  =  {  — 7- - }  if  n  >  0 

3np  r 

• 

=  0  if  ri  <  0 

r 

The  limiting  value  of  added  mass  at  infinite  frequency  is  used  in  accordance 
with  the  theory  of  normal -symmetric  impact  upon  a  calm  water  surface.  (It 
should  also  be  pointed  out  that  this  formulation  does  not  account  for  dif¬ 
fracted  free  surface  motion,  and  the  name  "Froude-Kryl ov  flare  force"  might 
more  accurately  represent  the  effect.) 

Quadratic  Damping 

The  expressions  for  total  forces  and  moments  (10)  -  (15)  and  (17)  - 
(22)  each  contain  a  term  which  represents  a  force  or  moment  which  is  propor¬ 
tional  to  velocity-squared.  The  user  of  the  computer  program  may  specify,  as 
input,  his  own  values  for  quadratic  damping  coefficients.  Accurate  roll 
prediction  often  requires  some  quadratic  roll  damping.  The  damping  moment 
associated  with  roll,  for  example,  may  be  written  in  the  form 
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where  B  44  is  the  quadratic  roll  damping  coefficient  for  the  ship,  and  6 
is  roll  angle  velocity. 


2.5  THREE-DIMENSIONAL  DYNAMIC  PRESSURES  AND  FORCES 


2.5.1  Introducti on 

A  numerical  method  for  calculating  the  transient  three-dimensional  flow 
induced  by  the  motion  in  waves  of  a  floating  Dody  of  arbitrary  shape  with 
forward  speed  is  presented  in  this  section.  Dynamic  pressures  and  the  result¬ 
ant  forces  and  moments  acting  on  the  hull  surface  can  be  evaluated  in  the  time 
domain  using  this  technique.  The  solution  is  generated  in  terms  of  a  source 
distribution  representation  of  the  body  and  a  spectral  representation  of  the 
free  surface.  The  approach  presented  here  expands  upon  the  work  of  R.B. 
Chapman  [5,6].  Although  Chapman  had  provided  the  basic  method  to  solve  the 
problem  of  ship  motions  in  waves,  his  formulation  did  not  explicitly  include 
the  ambient  wave  field  effects  and  associated  diffraction  flow. 

Following  Chapman,  *.ne  general  formulation  is  linearized,  assuming  that 
the  individual  poten^.a'.  and  their  derivatives  associated  with  forward  speed, 
body  motion,  free  surface  disturbance  caused  by  radiated  and  diffracted  waves, 
and  the  ambient  wave  flow  are  each  sufficiently  small  to  ignore  higher  order 
terms  and  croSj-products.  The  free  surface  equations  are  also  linearized. 
The  formulation  partially  accounts  for  the  "exact"  hull  boundary  by  evaluating 
hydrodynami _  pressures  on  the  actual  immersed  portion  of  the  body  surface  at 
each  time  step  below  the  still  waterline.  Thus,  the  effect  of  large-amplitude 
motions  is  included  to  some  extent. 

It  should  be  emphasized  that  this  three-dimensi onal  approach  is  a 
separate  procedure  quite  distinct  from  the  strip  formulation  and  equations  of 
motion  solution  techniques  that  form  the  basic  framework.  It  is  best  viewed 
as  a  "parallel  process,"  interfacing  with  the  main  solution  procedures  in  the 
£ol 1 owi ng  ways : 

(a)  It  requires,  as  input,  the  specification  of  body  position  and  veloci¬ 
ties  at  each  time  step. 

(b)  It  provides  as  output  forces  and  moments  on  the  hull,  as  well  as  addi¬ 
tional  information  regarding  distributed  dynamic  pressures. 

In  the  formulation  that  follows,  for  the  convenience  of  the  reader  who 
wishes  to  refer  to  Chapman's  work,  we  will  use  Chapman's  coordinate  system 
throughout  Section  2.5. 


2.5.2  Formul ati on 

A  Cartesian  coordinate -system  is  fixed  in  space  with  the  x-axis  in  the 
direction  of  the  ship's  forward  advance,  positive  forward;  the  z-axis  positive 
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downward  and  y-axis  positive  to  starboard.  The  still  mean  water  level  corre¬ 
sponds  to  z=0.  The  free  surface  elevation  is  specified  by  (x,y,t)  and  the 
ship's  hull  is  defined  by  S(x,y,z,t)  =  0  for  z  >  0.  If  the  fluid  is  assumed 
to  be  inviscid,  incompressible  and  homogeneous  and  the  flow  i rrotati onal ,  then 

the  fluid  velocity  v  (x  ,  t)  can  be  represented  by  the  gradient  of  the 

velocity  potential  4>(x,t).  If  we  linearize  the  free  surface  equations,  the 
velocity  potential  must  satisfy  the  following  conditions: 


V  $ 

0 

z 

> 

0 

(35) 

3i> 

St 

= 

-g  n 

z 

= 

0 

(36) 

3<t> 

3n 

z 

0 

f  -n\ 

\  ~  ■  / 

3  Z 

O  t 

34>_ 

■y 

1/ 

s 

•  n  =  0 

_ 

on 

S(x,y,  z,t)  =  0 

\JG  ) 

o  n 

■v 

s 

i  s 

the  velocity  at  any 

point  on  the 

hull  surface  S,  and  n 

is  the 

unit  normal  to  the  boundary  surface  at  the  point,  pointing  outward.  The 
velocity  potential  can  be  decomposed  into  two  parts: 


*  (x,y,z,t)  =  [-  Ux  +  $s  (x,y,z)  +  <f>T  (x,y,z,t)]  (39) 

where  -Ux  +  $  ^  is  the  steady  part  and  U  is  the  forward  speed  of  the  ship, 
and  <p  -j.  (x,y,z,t)  is  the  time-varying  potential.  In  the  present  formulation, 
we  will  neglect  the  steady  part  and  consider  only  the  time-varying  potential. 

Separating  the  time-varying  potential  into  three  parts,  we  obtain 

<?>7  ~  $6  +  ^  fs  +  (40) 
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where  ?g  represents  the  instantaneous  effect  of  the  body,  <j>pg  represents 

the  existing  free  surface  disturbance  due  to  previously  radiated  and  dif¬ 
fracted  waves,  and  <j> A  is  the  ambient  wave  potential. 

The  body  potential  will  be  represented  by  a  distribution  of  simple 
sources  over  the  wetted  hull  and  its  negative  image.  A  spectral  representa¬ 
tion  of  the  free  surface  potential  will  be  used  so  that  the  diffracted  and 
radiated  wave  fields  are  represented  by  two  series,  harmonic  in  space  and 
time.  The  potential  for  the  ambient  wave  system  will  be  given  according  to 
linear  theory  for  progressive  waves.  It  should  be  noted  that,  although  the 
method  can  be  extended  to  include  sources  distributed  over  the  entire  body, 
the  present  procedure  only  distributes  sources  over  the  body  below  the  mean 
waterl i ne. 

The  objective  of  this  analysis  is  to  compute  the  hydrodynamic  pressure 
on  the  hull,  as  determined  from  the  potential  field  (x,y,z,t).  The  dynamic 

pressure  can  be  obtained  from  Bernoulli's  equation  applied  to  (x,y,z,t). 
If  the  flow  is  assumed  to  be  slow  enough  that  the  nonlinear  term  can  be  neg¬ 
lected,  Bernoulli's  equation  is: 


P 


T  = 


[  4>b  +  4p$  +  4A  ] 


(41) 


By  linearizing  the  problem,  we  can  evaluate  the  total  pressure  at  any  time  or 
point  as  the  sum  of  the  individual  pressure  components,  as  given  by: 


P  B  ( x  ,y , z , t ) 


3  $ 


=  -  p 


[jnr-  VS  ] 


(42) 


Pps  (x.yw)  ~  -p 


3<f) 


FS 


3  t 


(43) 


PA  (x,y,z,t) 


3  4> 


-  P 


3 1 


(44) 


The  convective  derivative  for  the  body  pressure  expression  is  included  because 
the  Bernoulli  equation  given  here  is  for  fixed  points  in  space,  yet  the  body 
potential  is  associated  with  the  moving  hull  surface.  We  will  assume,  how 
ever,  that  products  of  the  body  velocity  and  potential  gradients  are  negli- 

34  o 

gible  with  the  exception  of  U  : —  .  Equation  (42)  then  becomes: 

o  X 
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Pg  (x.y.z.t) 


(45) 


=  -  P 


0  $ 


B 


Hi 


3  x 


]  • 


Prior  to  describing  the  individual  potential  representations  in  detail,  it 
will  be  advantageous  to  first  describe  the  numerical  solution  procedure  on  a 
step-Dy-step  basis. 


2.5.3  Solution  Procedure 


This  is  an  initial  value  problem  that  ideally  should  start  from  a 
condition  at  rest.  Prior  to  starting  the  simulation,  the  following  arrays 
relating  to  the  body  source  representation  are  calculated: 


(a)  E ■  ■  -  gives  the  normal  vel oci ty  component  at  the  center 

J  point  of  panel  i  induced  by  a  uniform  source  distrib¬ 

uted  over  panel  j  and  its  image.  (As  will  be  ex¬ 
plained,  the  hull  surface  is  modeled  by  quadrilateral 
panels;  at  the  center  of  each  is  a  simple  source.) 


(b)  P  -  gives  the  potential  at  the  center  of  panel  i  induced 

J  by  uniform  source  density  of  unit  strength  acting  over 

panel  j. 


(c)  X  -  gives  the  x-direction  velocity  component  at  the  center 

J  point  of  panel  i  induced  by  a  uniform  source  distrib¬ 

uted  over  panel  j  and  its  image. 


The  simulation  progresses  by  a  series  of  small  time  steps,  according  to  the 
following  sequence: 

Step  1. 


As  we  begin  each  time  step,  we  will  have  already  computed  the  veloci¬ 
ties,  accelerations  and  pressures  induced  by  the  free-surface  disturbance  and 
ambient  wave  field  at  the  center  of  each  panel.  (These  will  be  known  from 
steps  (5)  and  (6)  of  the  previous  time  cycle.)  The  body  velocity  and  acceler¬ 
ation  will  have  been  obtained  from  the  solution  to  the  equations  of  motion. 
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First,  for  time  t  =  tn,  compute  the  resultant  total  normal  veloci- 
ty  (v-j-  •  n)  *  at  the  center  of  each  panel.*  This  resultant  velocity  repre¬ 
sents  the  sum  of  the  velocity  from  the  body  motion,  the  velocity  induced  by 
the  existing  free  surface  disturbance,  and  the  velocity  induced  by  the  ambi ent 
wave  fiel d  : 

Vy  •  n  =  (  vB  +  Vp<-  +  v^  )  •  n  at  panel  centers.  (46) 

According  to  uiapman  [6],  it  is  more  convenient  to  use  accelerations  instead 
of  velocities.  Equation  (46)  can  then  be  expressed  as: 

aT  ‘  n  ‘  1  aB  +  aFS  -  U  57  VFS  +  aft  '  U  T7  V  '  n  '  <47> 

(The  convective  derivatives  are  required  in  this  case  for  apCj  and  a^  because 

we  are  in  a  hull-fixed  system  when  computing  the  resultant  normal  ac.cel erati on 
on  the  body . ) 

Step  2. 

Knowing  ay  from  step  (1)  and  having  precalculated  E^j,  determine  the 
time  derivative  of  the  source  strengths  according  to 

NB 

i  E . .  o .  =  aT  •  n  at  t  =  t  .  (48) 

i=l  J  T  n 

Step  3. 


Calculate  the  body-induced  component  of  pressure  at  the  center  point  of 
each  panel  induced  by  the  computed  time  derivative  of  the  source  strength  in  a 
hull  fixed  system  according  to 


*  In  the  equations  that  follow,  it  is  understood  that  all  normal  vectors, 
areas,  positions  or  coordinates  on  the  hull  are  functions  of  time,  even 
though  they  may  not  be  so  specified. 
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p 


(49) 


PB 


+ 


pU 


39g 
3  x 


or 


N 


B  . 


-p  Z  F-.o.(t)  +  p  U  X .  .  o  •  ( t  ) 
j  =  1  J  n'  p  lj  J  v  n' 


(50) 


Step  4. 

Compute  total  pressure  at  each  panel 


PT  <:n>  =  pB  (tn>  *  PFS  (tn>  +  pA<lr>  ' 

Step  5. 

Update  the  source  strengths  for  this  time  step  (tn)  according  to 


ci  <‘n>  •  =MV  4t>  *  At  «(  <V 


(51) 


Step  6. 

As  described  in  Section  2.5.5,  update  the  free  surface  representa¬ 
tions.  Modify  the  free  surface  to  account  for  the  effect  of  the  hull  source 
strengths  on  the  free  surface.  Calculate  acceleration  induced  by  the  free 

surface  at  the  center  of  each  panel  ap^  (tn+  At)  and  the  pressure  induced  by 

the  free  surface  disturbance  at  the  center  of  each  panel  Pp^  (tn  +  At)  . 

Step  7. 

Update  the  ambient  wave  field.  Calculate  the  acceleration  a.  (t  +  At) 

A  n 

and  pressure  p.  (t  +  At)  induced  by  the  ambient  wave  field  at  the  center  of 
m  n 

each  panel . 
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Step  8. 


Go  to  Step  1  with  the  new  ap<.,  a^  and  newly  prescribed  . 

2.5.4  Body  Representation 

As  shown  in  Figure  3,  the  hull  is  modeled  by  a  set  of  Ng  quadrilateral 

panels.  A  simple  source  and  its  image  is  distributed  over  each  panel.  The 
expression  for  the  body  potential  can  then  be  expressed  as: 


<PB  (x,y,i) 


=  I  a  JJ  G(x ,y , z ,x '  ,y '  ,2 ' )  dS ‘ 

i  =  1  S. 

i 


in  which 


G(x ,y  ,2  ,x  '  ,y  1  ,2') 


2  2  2.1/2 

C(x-x')  +  (y-y ' )  +  ( z -2  ' )  ]  7 

2  2  2.1/? 

C(x-x')  +  (y-y')  +  (z+21)  ]  7 


is  the  strength  on  the  ith  source  panel 


S.  is  the  ith  panel  surface. 


(53) 


(54) 


Panel  source  strengths  are  evaluated  at  each  time  step  using  a  linear  system 
of  equations  relating  resulting  total  normal  velocities  (v^*  n)  at  each 

panel  center  to  the  source  strength  o-  at  every  other  panel  center  and  by 

s J 


the  satisfaction  of  the  hull  boundary  condition  at  the  center  of  each  panel. 
The  exact  method  of  Hess  and  Smith  [32]  is  used  here  to  determine  the  normal 
velocity  component  at  the  center  point  of  panel  i  induced  by  a  plane  quadri¬ 
lateral  source  element  with  a  unit  value  of  source  density  at  the  center  point 
of  panel  j.  A  body  coefficient  scalar  matrix  is  thus  computed  which  can 

be  used  to  determine  unknown  source  densities  when  given  panel  center  normal 
velocities,  according  to 


v-r*  n  =  l  E.  .  0.  (55) 

i  j=l  J  J 

As  was  shown  in  equation  (46),  the  panel  center  total  normal  velocity  is  the 
sum  of  components  from  the  hull  motion  and  induced  velocities  from  radiated 
and  diffracted  free  surface  disturbances  and  ambient  wave  field. 
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STILL  WATERLINE 


Figure  3  Quadrilateral  panels  and  source 
representation  of  semi  submerged 
sphere. 
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Also,  in  Step  3  of  the  computational  sequence,  equations  (49)  and  (50) 
show  that  the  calculation  of  body-induced  pressure  at  panel  centers  requires 

the  use  of  two  other  arrays  and  The  X^-  array  gives  the  x-direction 

velocity  component  at  the  center  point  of  panel  i  induced  by  a  uniform  source 

(of  unit  strength)  distributed  over  panel  j  and  its  image.  It  is  thus  very 
similar  to  the  array,  relating  the  x-component  instead  of  the  normal 

component  of  panel  velocities.  In  practice,  it  is  evaluated  directly  from  the 
information  used  to  evaluate  E^j. 

The  P.j  array  gives  the  potential  at  the  center  of  panel  i  induced  by  a 
uniform  source  (of  unit  strength)  distributed  over  panel  j  and  its  image,  or 


9 


B. 


• i 


l 

j  =  l 


P.  . 


(56) 


Looking  back  at  equation  (53)  for  a  moment,  it  can  be  seen  the  P^  can  be 

computed  by  relating  each  panel  center  to  every  other  panel  center  using  the 
expression  for  G(x ,y , z ,x ' ,y ' ,z ' ) ,  or  in  the  indexed  notation, 


j'l  d^lCtxj  -  x^2  ♦  (y.  -  y,)2  ♦  (2j  -  z,f]  -  1/2 
Si 

2  2  2  .  1  /2 
-  C(Xj  X.  )  +  (y j  -  yi  )  +  (Zj  +  z. )  ]  '  } 


These  integrals  are  evaluated  numerically  by  dividing  the  surface  into  many 

small  elements  and  evaluating  the  above  integrand  at  the  center  of  each  small¬ 
er  element. 


2.5.5  Free  Surface  Representation 


A  spectral  representation  of  the  free  surface  will  be  used.  Let  the 
free  surface  elevation  and  velocity  potential  be  represented  by  n(x,y,t) 
and  9p^(x,y,z,t),  respectively.  The  elevation  and  potential  satisfy  the 

dynamic  and  kinematic  linearized  free-surface  conditions  at  z  =  0. 


3 _ 

3  t 


9  (x.y.O.t) 


-9  n(x,y,t) 


(58) 


2-25 


so  ,  .  , 

n(x,y,t)  = 


Sn  ,  .  . 

-  gY  (x.y.o.t) 


(59) 


Now  assume  that  both  the  elevation  and  deep  water  potential  can  be  represented 
by  the  real  part  of  a  finite  summation  of  harmonics  in  the  following  forms: 


N. 


N, 


m 


kx  "ky 

n  (x,y,t)  =  I  Akx  Z  A  ky 

n=l  m=l 

i(kxn  -x  +  kym  .y) 


[A  (t)  e 
L  nm  v  ' 


+  A  (t)  e 
nm  ' 


i(kxn  -x  -  ky  •  y) 


]  (60) 


N 


kx 


N 


ky 


?  rr  ( x  ,y  j  2 ,  t )  =  I  Akx  Z  Aky  [B  (t)  w  k  e 

FS  v  n  „  ,  Jm  L  nm  v  '  nm  nm 

n=l  m=l 


,  i  ( k x  •  x  +  ky  •  y ) 

-1  v  n 


+  B  (t )  w  k"  e 
nm  v  ‘  nm  nm 


.  i  ( k x  •  x  -  ky  •  y)  , 
-i  '  n  ■'m  J t  -k 


]  e”  nm  (61) 


where 


A  ,  B 
nm  nm 


complex  functions  of  wave  numbers  and  time 
(to  be  further  defined  below) 


★  ★ 

A  ,  B 
nm  nm 


complex  conjugates 


kx  ,ky 
n  ’ 


wave  numbers  in  x  and  y;  e.g.. 


Akx  ,  Aky 
n  •'m 


wave  number  spacing;  e.g.,  Akx  =  kx  .  -  kx 

3  3  n  n+1  n 


nm 


2  2  2 

k__  *  kx.  +  ky 

nm  n  J  m 


nm 


2  .2  2  1/2 
u  ■  g  [kx  +  ky  J 
•  nm  3  L  n  ■'m  J 
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Substitution  of  equations  (60)  and  (61)  into  the  free  surface  equations  (58) 
and  (59)  would  confirm  that  the  above  elevation  and  potential  expressions  do 
indeed  satisfy  the  linearized  free  surface  conditions.  We  would  also  obtain, 
from  those  substitutions,  the  following  relationships  between  the  complex 
ampl itude  functions : 


4-  A  (t)  =  a)  B  (t)  (62) 

dt  nm '  '  nm  nm  v  '  '  ' 

4-  B  (t)  =  -u)  A  (t)  (63) 

dt  nm'  '  nm  nm'  '  ' 


(The  complex  conjugates  are  described  by  identical  expressions). 

As  part  of  the  free  surface  elevation  representation,  we  further  define 
the  complex  amplitude  function  Anm  as 


(t) 


=  a 


nm 


cos  uj 


t  +  b 
nm  nm 


sin  <*>  t 
nm 


(64) 


where  anm  and  bnm  are  complex  constants.  Substitution  of  (64)  into  (62) 
yields  the  expression  for  Bnm(t). 


B  (t)  =  b  cos  u)  t  -  a  sin  u>  t  (65) 

nm'  '  nm  nm  nm  nm 


Similar  expressions  also  describe  the  complex  conjugates. 


Updating  the  Free  Surface 

Equations  (62),  (63),  (64)  and  (65)  allow  us  to  develop  the  expressions 
for  the  time  evolution  of  Anm(t)  and  Bnm(t).  Consider  Anm(t)  first.  If  we 

increment  the  time  in  equation  (64)  by  At  ,  we  obtain 


A 

nm 


(t 


+  At) 


a  cos  u> 
nm  nm 


(t  +  At)  +  b  sin  u  (t  +  At) 
'  '  nm  nm  v  ' 


nm 


(66) 
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Using  the  following  trigonometric  identities, 


cos  (x  ±  y)  =  cos  x  cos  y  +  sin  x  sin  y 


sin  (x  ±  y)  =  sin  x  cos  y  ^  cos  x  sin  y 


we  can  rewrite  (66)  as 


A  (t  +  At)  =  a  cos  u)  t  cos  uj  (At)  -  a„m  sin  u _ t  sin  oj  (At) 

nm  '  nm  nm  nm  nm  nm  nm 


+  b  sin  u3  t  cos  ui  (At)  +  b  cos  w  t  sin  oj  (At)  (68) 
nm  nm  nm'  '  nm  nm  nm,  '  '  ' 


Rearranging  (68),  we  can  write 


A  (t  +  At)  =  [a  cos  o>  t  +  b  sin  u>  t]  cos  oj  (At) 
nmv  ‘  nm  nm  nm  nm  nm 


+  [b  cos  oj  t  -  a  sin  w  t]  sin  oj  (At)  (69) 

L  nm  nm  nm  nm  nmv  ' 


It  can  be  seen  that  the  quantities  in  the  brackets  are  equivalent  to  the 
right-hand  sides  of  equations  (64)  and  (65),  so  that  we  can  now  obtain 


A  (t  +  At)  =  A  (t)  cos  oj  (At)  +  B  (t)  sin  to  (At)  (70) 

nm  nm  v  '  nm'  nm  nm'  ' 


The  expression  for  Bnm(t)  can  be  similarly  obtained  and  is  given  as 


B  (t  +  At)  =  B  (t)  cos  ui  (At)  -  A  (t)  sin  oj  (At)  (71) 

nm'  nm'  ’  nm'  nm'  nm 
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Identical  expressions  are  used  for  updating  A*nm(t)  and  B*  (t).  Thus,  ex¬ 
pressions  (70)  and  (71)  provide  the  means  to  update  the  coefficients  which 
define  the  wave  field.  To  these  updated  values  must  be  added  any  contribution 
to  the  wave  field  from  the  body  motion  between  times  t  and  t  +  At  ,  as  de¬ 
scribed  next. 


Body  Effect  on  the  Free  Surface 


Next  we  consider  the  effect  of  the  body  source  distribution  on  the  wave 
elevation  field  over  the  time  interval  At  .  Assume  that  the  change  in  A  (t) 

induced  by  the  body  between  tn  and  t  +  At  is  expressed  by  the  sum  of  the 

effects  of  the  individual  sources  and  their  images.  For  convenience,  we  will 
first  replace  a  uniform  source  density  acting  over  a  panel  of  area  A.-  by  a 
single  point  source  with  strength 


Si  (t)  =  Ai  [o.j  (tn)  +  (t-tn)  o  (tn)] 


(72) 


which  is  located  at  the  panel  center.  The  time,  t,  is  defined  to  be 
t  =  tn  +  1 / 2a t ,  the  midpoint  of  the  time  interval. 

At  any  given  point  on  the  mean  water  level  plane  (x,y,0),  the  vertical 
velocity  induced  by  the  source  points  and  their  images  is  given  by 


3$B(t)  Nb  2z.S.(t) 

-  =  -  Z  - 2 - 2 - TJZ 

az  i  =1  C(x-Xi)  +  (y-y^  +  zf]  ' 


(73) 


According  to  Chapman  [6],  equation  (73)  can  also  be  expressed  in  an  integral 
form  given  as 


®  v  g  ( t ) 
9  Z 


2  B  »  ikx(x-x. )  ® 

-  I  s.(t)  /  dkx  e  /  dky  cos  ky(y-y .  ) 

•n  i  =  1  0  -»  ' 

2  2 

”(kx  +  ky  )zi 


(74) 


Substituting  (74)  into  the  linearized  kinematic  free  surface  condition  (59), 
and  integrating  over  the  time  interval  At  ,  we  can  rewrite  (74)  to  show  how 
the  elevation  changes  over  At  due  to  the  body, 


2-29 


2  t+  At  ikx(x-x. ) 

AnB(x,y)  =-  Jt  dt  I  si(t)  /"dkx  e  /“dky  cos  ky(y-yi  ) 

n  i  =  1  0  -oo 

2  2 

-(kx  +  ky  )z. 

*  e  (75) 


We  may  also  write  AnB(x,y)  in  a  different  form,  following  the  same  form  of 

the  original  expression  (60)  defining  the  free  surface  elevation.  In  that 
form,  we  can  write 

^kx  \y  BODY  i(kx  •  x  +  ky  •  y) 

An B(x ,y )  =  Z  Akxn  Z  Akym  [  AAnm  (t)  e 

n=l  m=l 

BODY*  i (kx  •  x  -  ky  •  y ) 

+  aA  (t)  e  n  m  ]  (76) 

nm  '  '  ' 


Then,  if  we  represent  the  wave  number  integrals  in  (75)  numerically  by  a 
finite  summation,  and  also  evaluate  the  time  integral,  it  should  be  evident  by 
direct  comparison  with  (76)  that  the  Anm  coefficient  increments  can  be  written 
as 


BODY 


At  N 


A  A. 


B 


nm 


BODY* 


aA_ 


nm 


2  —  I  si (t  +  1/2  At)  e 
11  i  =1 

it  N8 

2-  ^  si<2n  *  e 


*  k*m  "knm2i 

e 

(77) 

-  k*m  •i'i  >  "knm2i 
e 

(78) 

The  changes  in  Bnm  induced  by  the  body  can  be  derived  from  (78)  and  (79)  using 
the  relationship  between  Anm(t)  and  Bnm(t)  given  in  (63).  Mjltiplying  both 
sides  of  (63)  by  At  and  then  integrating  both  sides  over  time,  we  obtain 


BODY  BODY  2 

^  trA  <79> 
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or 


BODY 


aB 


nm 


2  N 

(At)  B  -i  { k x  *x.  +  ky  *y.  )  -k  z. 

— —  Z  s.(tn)  e  n  1  m  i  e  nm  i 


i  =1 


nm 


(80) 


BODY* 


with  a  similar  expression  for  aB 


nm 


The  effect  of  the  body  on  the  free  surface  can  now  be  easily  included  by 

BODY* 


...  .BODY  .  BODY*  A  n  BODY 

adding  aA  ,  aA _  ,  AB 

3  nm  nm  nm 


and  aB  to  the  time  evolution  equa- 

nm 


tions  given  earlier  as  (70)  and  (71)  and  the  corresponding  (complex  conjugate) 
expressions. 


Free  Surface- Induced  Pressure  and  Acceleration 


Finally,  we  need  to  evaluate  the  pressure  and  acceleration  induced  by 
the  free  surface  disturbance  at  the  center  of  each  panel.  These  two  quanti¬ 
ties  are  required  in  steps  (4)  and  (1),  respect! vely ,  of  the  simulation  pro¬ 
cedure.  The  pressure  at  any  point  (x,y,z)  is  given  by 


PFS 


3<pFS 
p  TT 


Nkx  \y  (ikx 

p  Z  Akx„  Z  Akym  e 
,  n  ,  m 
n=l  m=l 


x  -  k 


nm 


z) 


[ 


A  (t)  e^m*^  +  A  (t)  e 
nm  '  ’  nm  '  ‘ 


(81) 


the  acceleration  at  any  point  (x,y,z)  coincident  with  a  unit  normal  vector 
(nx,  n  ,  n2)  may  be  written  as 


N 


kx 


N 


ky 


arC  •  n  =  -  g  z  Akx„  Z  Aky  e 
FS  3  .  n  ,  m 

n=l  m=l 


(ikx 


x  -  knm  •  z) 
nm  ' 
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A  (t) 
nm '  ' 


0'kyr 


ikyi 


-  k 


nm 


n2> 


+  A  ( t ) 
nm  v  ' 


-ikyn 


(ikxr 


n  -  i kym 
x  J m 


nm 


"i>  ^ 


(82) 


2.5.6  Ambient  Wave  Field  Representation 

The  ambient  wave  field  is  represented  by  a  linear  wave  system  of  ampli¬ 
tude  A.  Consider  unidirectional,  regular  waves  and  define  the  velocity  poten¬ 
tial  as 


♦  A(x,z,t)  =  -  e'k2sin(kx-tot)  (83) 

The  x  and  z  components  of  velocity  can  then  be  expressed  as 

vx(t)  =  -  TT  =  n?  e’kZ  cos  (kx-"t)  w 

vpt)  =  •  TT  *  -  ^  e"kZ  (85) 

The  x  and  z  components  of  acceleration  can  be  given  as 


3x(t> 

li 

=  Agk 

e~kz  sin(ky-wt) 

(86) 

a  v 

e-lcz  cos(kx-ut) 

a2(t) 

2 

at 

=  Agk 

(87) 

The  dynamic  pressure  may  be  expressed  as 

PA(t)  =  -  p  —■  =  -  Ae~kZ  cos (kx-wt)  (88) 
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We  can  now  evaluate  the  normal  acceleration  and  pressure  induced  at  the 
center  of  each  panel  by  the  ambient  wave  field.  These  quantities  are  used  in 
Steps  1  and  4  of  the  simulation  procedure.  The  pressure  is  given  in  (88)  and 
the  normal  acceleration  is  simply 


(89) 


where  the  velocity  components  are  given  in  (84)  and 
in  an  irregular  wave  system,  the  total  velocity, 
components  can  be  described  as  the  superposition  of 
cy  components. 


(85).  We  will  assume  that 
acceleration  and  pressure 
individual  single  frequen- 


2.6  HULL  GIRDER  LOADS 

Hull  girder  loads  are  computed  in  the  conventional  manner  of  strip 
theory  where  the  dynamic  shear  force  at  a  cross  section  is  the  difference 
between  the  inertia  force  and  the  sum  of  external  forces  acting  on  the  portion 
of  the  hull  forward  of  the  section.  The  vertical  shear  force  and  bending 
moment  at  any  location  xQ  along  the  ship's  length  is,  in  the  original  coordi¬ 
nate  system, 


(90) 


and 


BM 


<‘o> 


-  / 


(x-x0) 


df 

—1 

dx 


dx 


(91) 


where 


dx 


-  6m  (y  -  x  ^ 


dY,  dY  dY,  dY. 
_ h  +  _w  _ f  ,  _ b 

dx  dx  dx  dx 


(92) 


and  6m  =  local  sectional  mass.  Integrations  are  performed  from  the  location 
xQ  forward  to  the  bow. 
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as 


The  lateral  shear  force,  bending  moment  and  torsional  moment  are  given 


SF 


dx 


BM  (x  1 
ZK  O' 


-  J 


bow 


df 


x  (x-x  1  -t —  dx 
o  x  o'  dx 


TM  (x  . 
X  v  o) 


dm 

=  ,bow  X 

J  x  dx 
o 


where 


df 

_ Z 

dx 


dm 


x 


dx 


and  y 


i 


x 


=  -om(z-x<f>-y  6) 
dZ  dZ  dZ. 

+  Jb  +  *  -J>  .  2 

dx  dx  dx  q 

=  -  1x  9  -  6my  (z  -  x$  ) 
dK.  dK  dK. 

+  _Jl  +  _ S'  +  _ -b  +  K 

dx  dx  dx  q 

=  local  section's  center  of  gravity  relative  to  ship 
c.g.  (positive  up). 

=  local  section's  mass  moment  of  inertia. 


(93) 

(94) 

(95) 


(96) 


(97) 


2.7  NUMERICAL  ASPECTS 


2.7.1  Solution  Procedures  -  Two-Dimensional  Approach 

The  equations  of  motion  as  represented  by  expressions  (4)  -  (7)  are 
numerically  integrated  for  each  time  to  yield  velocities  and  displacements. 
The  fourth-order  Runga-Kutta  scheme  is  used  for  this  purpose.  At  each  time 
step,  two-dimensional  hydrodynamic  coefficients  are  evaluated  for  each  section 
for  either  the  still  water  draft  or  at  the  instantaneous  depth  of  immersion, 
at  the  option  of  the  user.  When  it  is  desired  that  the  hydrodynamic  coeffi¬ 
cients  be  draft  dependent,  the  coefficients  are  obtained  by  linear  interpola¬ 
tion  from  an  array  of  six  values  corresponding  to  six  drafts  which  cover  a 
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range  specified  by  the  user  in  the  input  data.  Since  the  hydrodynamic  coeffi¬ 
cients  are  also  frequency  dependent,  they  are  selected  using  linear  interpola¬ 
tion  from  an  array  of  twelve  values  associated  with  a  range  of  twelve  frequen¬ 
cies  specified  by  the  user.  Thus,  when  the  two-dimensional  sectional  coeffi¬ 
cients  are  to  be  both  draft  and  frequency  dependent,  two-dimensional  linear 
interpolation  is  performed. 

There  are  two  methods  for  the  selection  of  frequencies  at  which  to 
evaluate  the  hydrodynamic  coefficients.  One  is  based  on  a  scheme  that  samples 
the  previous  two  zero-crossing  periods  of  sectional  motion  in  sway,  heave  and 
roll.  The  two  values  are  averaged,  and  three  characteristic  frequencies  are 
derived  for  evaluation  of  the  sectional  hydrodynamic  coefficients.  The  sway- 
roll  or  roll-sway  coefficients  are  (arbitrari ly )  linked  to  the  sway  character¬ 
istic  frequency.  The  other  allows  the  user  to  specify  a  frequency,  such  as 
the  peaks  of  the  response  spectra  or  peak  of  the  wave  energy  spectrum. 

The  sectional  hydrodynamic  coefficients  are  computed  using  the  Frank 
close-fit  method.  Spatial  derivatives  of  added  mass  and  damping  coefficients 
in  the  x-direction  are  approximated  by  center-space  finite  differences.  In 
the  calculation  of  the  derivative  of  added  mass  with  respect  to  the  relative 
wave  elevation  used  in  the  computation  of  vertical  flare  force,  the  added  mass 
is  evaluated  at  each  time  step  at  the  instantaneous  immersed  draft  of  the 
section.  For  each  time  step  interval  At  ,  the  change  in  added  mass  is  com¬ 
puted  and  divided  by  the  change  in  instantaneous  draft  of  the  section.  During 
water  exit,  the  calculation  of  the  impact  term  is  not  performed  and  the  sec¬ 
tional  flare  force  is  set  to  zero. 


2.7.2  Solution  Procedures  -  Three-Dimensional  Analysis 


Specification  of  Parameters  for  Free  Surface  Harmonics 


There  are  three  parameters  which  must  be  chosen.  These  parameters 
dictate  the  wave  numbers  and  wave  number  spacing  for  the  free  surface  repre¬ 
sentation.  The  following  parameters  are  to  be  specified  for  the  three-dimen¬ 
sional  transient  analysis: 


Lx,  L  -  maximum  distances  in  ±x  and  ±y  from  body  origin  defining 

the  physical  region  over  which  the  wave  field  is  required. 

T  -  maximum  time  interval  for  transient  simulation. 

lx.  ly  -  minimum  hal f-wa vel ength  related  to  the  smallest  scale  of 
disturbance  or  physical  feature  of  the  hull  that  needs  to 
be  represented. 


There  are  no  set  rules  for  the  selection  of  these  parameters,  and  their  choice 
must  be  based  on  an  understanding  of  the  problem.  There  are,  however,  some 


2-35 


guidelines  which  generally  seem  to  work  well.  The  values  of  Lx  and  Ly  should 

be  2  to  2.5  times  the  length  and  beam  of  the  body,  respectively.  The  values 

of  1  ,  1  should  be  on  the  order  of  the  average  dimensions  of  the  hull  pan- 

a  y 

els.  The  parameter  T  can  be  set  to  about  60%  of  the  actual  time  for  which  a 
transient  analysis  is  desired. 

The  wave  numbers  and  wave  number  spacing  are  then  specified  according 
to  the  following  relations: 


(a)  teximum  step  sizes  for  kxn  and  kym  are: 


i  ,  2n 

kx  ,  -  kx  <  — 
n  +  1  n  L 

x 


k>'m.i  -  %  5  f 


(98) 


(b)  The  minimum  upper  bounds  of  kx  and  ky  are: 


kx 


ky 


(99) 


(c)  Another  set  of  conditions  for  wave  number  spacing  is: 


2jt 


•'  kVl 

-  ✓  kx„ 
n 

<  (T  ✓  g) 

2n 

'  kjVi 

-  /  ky  < 
•'m 

(T/"g) 

(100) 


A  physical  interpretation  of  the  wave  number  spacing  required  by  the  above 
conditions  has  been  pointed  out  by  Chapman  [5],  The  wave  numbers  defined  by 
(98),  (99),  and  (100)  correspond  in  the  physical  domain  to  "vertical  walls" 
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which  must  be  placed  sufficiently  far  away  from  the  body  so  that  the  free 
surface  disturbances  generated  near  the  body  do  not  reflect  back  over  the  time 
interval.  Associated  with  the  faster  propagating,  longer  wavelengths  are 
vertical  walls  placed  further  away  -  the  shorter  wavelength  walls  are  near¬ 
er.  The  result  is  that  the  time  interval  for  each  wave  to  reflect  is  equal. 
For  further  discussion  of  the  reasoning  behind  this  method  of  wave  number 
spacing  and  selection  criteria,  see  [5]. 


Integration  with  Equations  of  Motion 

At  a  time  specified  by  the  user,  the  three-dimensional  transient  analy¬ 
sis  can  start,  using  accelerations  and  velocities  generated  by  the  solution  of 
the  equations  of  motion  at  that  time  step.  Then,  data  generated  (pressures 
and  loads)  from  the  three-dimensional  analysis  is  not  used  for  a  period  of 
time  specified  by  the  user,  so-called  "start-up"  time.  This  allows  the  free 
surface  disturbance  to  fully  develop  since,  initially,  there  exist  no  radiated 
or  diffracted  waves  within  the  three-dimensional  simulation.  Based  on  the 
present  level  of  experience  with  the  program,  the  minimum  start-up  time  for 
ship  forms  has  not  been  fully  defined;  however,  for  a  sphere,  two  full  cycles 
of  motion  appear  sufficient. 
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3.0 


NUMERICAL  RESULTS 


Several  computer  codes  have  been  developed  according  to  the  predictive 
techniques  discussed  in  the  previous  sections.  The  main  program  is  entitled 
SSX  (Ship  _Simulator,  Experimental ) .  It  performs  the  simulation  of  ship  mo¬ 
tions”  hull  girder  loads  and  hull  pressures.  There  are  two  preprocessing 
programs  -  HYDREX2  and  HYDREX3.  The  program  HYDREX2  computes  sectional  added 
mass  and  damping  coefficients  for  an  array  of  twelve  frequencies  and  six 
drafts  using  the  Frank  close-fit  technique.  The  program  also  calculates 
general  hydrostatic  data  for  each  of  the  six  drafts.  The  program  HYDREX3 
computes  areas,  normals  and  panel  center  coordinates  for  the  panel  (either 
quadri 1 ateral  or  triangular)  representation  of  the  hull.  It  also  evaluates 
three  computationally  demanding  arrays  used  for  the  simulation  of  hull  pres¬ 
sures.  For  further  information  about  these  programs,  refer  to  Volume  II 
( Program  Manual ) . 

Because  the  debugging  and  testing  of  SSX  or  any  time  simulation  pro¬ 
gram,  for  that  matter,  is  an  extremely  time-consuming  process,  the  extent  of 
the  validation  effort  has  been  limited  to  the  minimum  number  of  cases  needed 
to  test  the  capabilities  of  the  computer  programs  and  verify  the  basic  theory 
and  numerical  techniques  when  possible. 


3.1  TWO-DIMENSIONAL  HYDRODYNAMIC  COEFFICIENTS 

Sectional  added  mass  and  damping  coefficients  computed  by  Program 
HYDREX2  for  the  5L-7  contai nership  were  checked  against  values  generated  by  a 
conformal  mapping  method,  as  given  by  Zielinski  [33].  Agreement  was  excellent 
in  most  cases.  As  an  example,  Figure  4  compares  added  mass  and  damping  coef¬ 
ficients  for  heave  and  sway  at  midships  with  a  draft  of  32.8  feet. 


3.2  MOTION  RESPONSE  AND  HULL  GIRDER  LOADS  IN  SMALL  AMPLITUDE  REGULAR  WAVES 

A  few  comparisons  between  computed  and  experimental  values  for  heave 
and  pitch  motions  in  one-foot  regular  waves  will  first  be  presented  to  check 
the  time-domain  solution  methods  using  strip  theory  computed  forces  where  the 
added  mass  and  damping  coefficients  are  calculated  for  the  mean  still  water 
sectional  drafts.  Figure  5  shows  the  heave  and  pitch  amplitudes  and  phases 
for  the  Series  60  standard  hull  form  with  block  coefficient  0.70  at  Froude 
numbers  0.15  and  0.20.  The  points  in  the  figures  represent  experimental 
results  by  Gerritsma  and  Beukelman  [34];  the  solid  line  is  computed  by  the 
present  method,  and  the  broken  line  by  modified  strip  theory  (frequency  do¬ 
main)  of  Gerritsma  and  Beukelman.  Note  that  the  pitch  amplitude  is  scaled  by 
wave  slope.  It  is  seen  that  agreement  is  generally  good  with  the  exception  of 
heave  amplitude  in  the  vicinity  of  X/L  =  1.0.  The  reason  for  this  disagree¬ 
ment  has  not  been  identified. 

Figure  6  gives  the  theoretical  and  experimental  pitch  and  heave  values 
for  the  SL-7  contai nershi p  at  25  knots  in  a  full  load  condition.  The  experi¬ 
mental  values  shown  are  by  Dalzell  [35];  the  solid  line  represents  the  present 
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Figure  4  Added  mass  and  damping  coefficients.  Comparison  of 
HYDREX2  (Frank  close-fit)  with  CGSCORES  (Conformal 
Mapping).  SL-7  Contai nershi ps ,  Midships  section. 
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PHASE-DEGREES 


X/l  A  II 


Figure  5  Calculated  and  measured  amplitude  and  phase 

characteristics  for  heave  and  pitch.  Series  60. 
Block  coefficient  0.70.  Froude  Numbers  0.15 
and  0.20. 


3-3 


PITCH/WAVE  HEAVE/WAVE  PHASE-DEGREES 
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n  f  ft  /  r  t  r  T  /  *  * 


Figure  6  Calculated  and  measured  amplitudes  of  heave  and 
pitch.  SL-7  Containership.  25  knots,  head  seas 


method,  and  the  broken  lines  are  strip  theory  results  from  the  SCORES  Program 
[4],  Note  that  the  experimental  values  for  heave  at  longer  wave  lengths  have 
not  been  included  because  it  has  been  suggested  [35]  that  they  were  too  large 
and  are  in  error.  (The  short  wavelength  experimental  values  are  assumed  to  be 
correct.)  It  is  seen  that  pitch  values  predicted  by  SSX  agree  well  with  the 
other  values.  Heave  response,  like  before,  is  too  high  around  X/L  =  1.0. 

The  routine  to  compute  hull  girder  loads  in  the  present  version  of  SSX 
is  still  in  a  premature  stage.  The  computation  of  moment  arms  and  sectional 
inertial  forces  essentially  assumes  a  lumped  mass  model.  There  is  no  attempt 
to  account  for  "trapezoidal"  sections  of  the  weight  curve.  Also,  weight 
segments  must  correspond  to  the  segment  between  adjacent  stations.  However, 
the  routine,  as  written,  does  provide  the  means  to  evaluate  the  effect  of 
including  various  forces  or  different  techniques  by  which  to  evaluate  such 
forces . 


A  comparison  between  computed  and  experimental  midships  bending  moment 
amplitudes  for  the  SL-7  contai nershi p  at  25  knots  in  a  full  load  condition  is 
shown  in  Figure  7.  The  experimental  data  is  from  Dalzell  [35];  the  present 
theory  is  represented  by  the  solid  line,  the  broken  line  shows  predictions 
from  SCORES  [4],  Agreement  is  shown  to  be  very  good. 

Finally,  comparison  between  theory  and  experiments  for  midships  hori¬ 
zontal  and  vertical  bending  moments  and  pitch  angle  are  shown  in  Figure  8  for 
the  SL-7  in  oblique  waves  (210°).  Agreement  is  satisfactory  with  the  excep¬ 
tion  of  vertical  bending  moment.  Further  investigation  is  needed  to  identify 
the  causes  of  disagreement. 


3.3  IRREGULAR  WAVES 

A  test  case  was  run  to  check  the  program's  ability  to  predict  motion 
and  loads  response  in  an  irregular  sea.  The  SL-7  was  subjected  to  an  irregu¬ 
lar  head  sea  wave  system  approximately  representing  a  Bretschnei der  spectral 
formulation  with  Hs  =  10.8  ft  and  TQ  =  8  secs,  where  H$  is  significant  height 

and  Tq  is  the  period  associated  with  the  peak  of  the  sea  spectrum.  Forward 
speed  was  5  knots.  The  frequency  at  which  hydrodynamic  coefficients  used  for 
ship  motion-induced  forces  were  to  be  calculated  was  set  to  .8217  -  the  en¬ 
counter  frequency  associated  with  the  peak  of  the  sea  spectrum.  The  sea 
spectrum  was  decomposed  into  ten  components.  Randomly  generated  phase  angles 
were  used  to  generate  the  irregular  sea,  superimposing  the  ten  regular  wave 
components.  A  real  time  simulation  of  20  minutes  was  carried  out.  Statistics 
were  acquired  for  heave,  pitch  and  midship's  vertical  bending  moment.  Table  1 
compares  the  statistical  results  of  the  simulation  with  predictions  from  the 
strip  theory  frequency  domain  program  developed  at  MIT  and  described  by 
Loukakis  [36]. 

As  can  be  seen,  the  SSX  motion  values  are  slightly  higher  than  the  MIT 
program  values.  The  vertical  bending  moments  compare  very  well.  The  measured 
significant  RMS  wave  height  from  the  SSX  simulation  was  close  to  the  desired 
value  of  5.33,  providing  some  assurance  that  the  irregular  wave  spectrum  is 
correctly  being  broken  down  into  wave  components. 
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Table  1 


SSX 

MITA 

RMS  Pitch  (deg) 

.2644 

.2606 

RMS  Heave  (ft) 

.5560 

.5308 

RMS  V.B.M.  (ft-tons) 

56844 

56415 

RMS  Wave  Height 

— . — . - - - - 

5.23 

5.33 

One  feature  of  the  SSX  program  is  the  scheme  to  average  the  two  most 
recent  zero-crossi ng  periods  and  derive  a  "characteristic"  frequency  at  which 
sectional  hydrodynamic  coefficients  are  calculated.  This  feature  was  applied 
to  the  same  test  case  as  before.  The  results  are  shown  in  Table  2. 


Table  2 


SSX 

with  f  (freq) 

without  f  (freq) 

RMS  Pitch  (deg) 

.2619 

.2644 

RMS  Heave  (ft) 

5507 

.5560 

RMS  V.B.M.  (ft. -tons) 

55432 

56844 

The  effect  of  invoking  the  characteristic  frequency  feature  is  to  reduce  the 
SSX  values.  The  calculated  sectional  characteri sti c  heave  frequency  during 
the  course  of  the  simulation  generally  ranged  between  u>  =  .35  and  .49. 
This  reflects  the  actual  response  of  the  ship  and  is  significantly  different 
from  the  .8217  value  used  in  the  previous  simulation.  There  is  still  rela¬ 
tively  little  difference  between  the  RMS  values  of  the  two  test  cases. 
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3.4 


NONLINEAR  RESPONSE  IN  LARGER  WAVES 


As  part  of  many  model -test  programs,  a  so-called  linearity  check  is 
performed  where  the  same  test  runs  are  made  with  increasing  wave  amplitudes  to 
determine  if  responses  are  linearly  proportional  to  wave  amplitude.  Similar 
experiments  have  been  performed  using  SSX.  The  runs  were  made  at  25  knots  in 
head  seas  with  wave  amplitudes  of  5,  10  and  15  feet.  Added  mass  and  damping 
coefficients  were  computed  at  the  mean  still  water  draft.  Plots  showing  peak 
heave,  pitch  and  midship's  vertical  bending  moment  are  provided  in  Figures  9, 
10  and  11,  respectively. 

Note  that  in  Figures  9  and  10,  the  heave  and  pitch  response  has  been 
divided  by  wave  amplitude.  In  both  of  these  figures,  nonlinear  behavior  is 
exhibited;  that  is,  normalized  response  is  reduced  at  higher  amplitudes,  with 
the  exception  of  the  pitch  "bow-down"  response.  It  appears  quite  linear.  In 
Figure  11,  the  midship's  vertical  wave  bending  moment  is  shown  for  various 
wave  lengths  and  wave  heights.  Note  that  in  this  plot,  the  response  has  not 
been  normalized  by  wave  amplitude.  In  general,  response  is  linear  with  re¬ 
spect  to  wave  amplitude,  with  the  exception  of  slight  nonlinearities  shown  for 
hogging  at  15  feet  wave  amplitude  for  A / L  =  0.75,  1.0,  1.25. 

Also  shown  in  Figure  11  is  the  effect  of  including  the  flare  impact 
force.  The  broken  lines  show  the  bending  moment  when  flare  is  included.  Tne 
effect  is  only  measurable  in  sagging.  The  values  for  hogging  were  so  close  to 
the  non-flare  values  that,  if  drawn,  they  would  be  coincident  with  the  lines 
shown  already.  (For  hogging,  a  slight  reduction  in  the  magnitude  of  bendir.g 
moment  was  the  effect  of  including  flare  forces.) 

The  effect  of  including  flare  forces  on  the  heave  and  pitch  response  is 
rather  minor  except  around  A/L  =  1,  as  shown  in  Figures  12  and  13,  respec¬ 
tively.  The  heave  and  pitch  response  is  shown  for  a  ten-foot  regular  wave 
over  a  range  of  wave  lengths.  As  shown  in  Figures  12  and  13,  the  effect  of 
flare  force  inclusion  is  to  reduce  the  amplitudes  in  both  directions  (heave  up 
and  down,  pitch  bow-up  and  bow-down)  between  A/L  =  1.0  and  1.25.  It  can  also 
be  seen  in  these  figures  that  for  this  wave  amplitude,  the  SL-7  contai nershi p 
pitches  bow-down  more  than  bow-up,  and  heave-down  more  than  heave-up  over  the 
range  of  wavelengths. 

Linearity  checks  were  performed  up  to  regular  wave  amplitudes  of  15 
feet  because,  at  20  feet  and  above,  inconsistent  results  were  sometimes  ob¬ 
tained  from  the  program.  A  check  of  what  was  physically  occurring  at  these 
greater  wave  amplitudes  was  performed  graphically.  Figures  14  and  15  show  the 
motion  of  the  SL-7  containershi p  at  25  knots  for  A/L  =  1.5  and  1.75,  respec¬ 
tively.  It  can  be  seen  that  for  A/L  =  1.5,  bow  submergence  and  emergence  are 
quite  extreme.  For  A/L  =  1.0  and  A/L  =  1.25,  behavior  was  equally  extreme. 
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Fiqure  9  Heave  Amplitude/Wave  Amplitude  vs.  Wave  Figure  10  Pitch  Amplitude/Wave  Amplitude  vs.  Wave 

Amplitude.  SL-7  Conta’nership,  25  knots.  Amplitude.  SL-7  Containership,  full  Load, 

full  load  condition,  Head  Seas.  Head  Seas,  25  knots. 


moment 
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INFLUENCE  OF  DRAFT- DEPENDENT  HYDRODYNAMIC  COEFFICIENTS 


In  order  to  evaluate  the  influence  of  calculating  the  sectional  added 
mass  and  damping  coefficients  at  the  actual  draft  (average)  at  each  station 
for  each  instant,  a  series  of  runs  were  made  at  25  knots  in  head  seas,  A/L  = 
2.0.  Flare  forces  were  not  included  in  these  runs.  Wave  amplitudes  were  5, 
10  and  20  feet.  It  was  found  that  within  this  range  of  conditions,  the  use  of 
draft -dependent  coefficients  had  negligible  effect  on  pitch  and  heave  motions 
and  vertical  wave  bending  moment. 


3.6  FORCE  PREDICTION  USING  THE  THREE-DIMENSIONAL  APPROACH 

The  ability  of  Chapman's  method  for  the  prediction  of  transient  motions 
of  a  floating  body  is  demonstrated  in  [5]  with  the  forced  oscillation  and  free 
oscillation  of  a  two-dimensional  rectangle  and  wedge.  Chapman  extends  the 
two-dimensional  model  to  three  dimensions  as  reported  in  [6],  The  technique 
used  by  Chapman  to  check  the  three-dimensional  model  was  to  subject  a  semi - 
submerged  sphere  represented  by  60  panels  to  vertical  impulse  -  a  unit  step  in 
heave  velocity.  The  heave  response  time  history  that  results  is  used  to 
derive  added  mass  and  damping  coefficients.  These  coefficients  are  compared 
with  classical  results  of  Havelock  [37]  and  results  of  Kim  [38]  with  very  good 
correlation. 

The  basic  ability  of  the  three-dimensional  method  developed  here  to 
accurately  predict  hydrodynamic  forces  will  be  verified  by  two  simple  tests 
using  a  semi  submerged  sphere  at  zero  speed.  A  more  comprehensive  set  of  tests 
is  recommended  in  the  future.  The  two  tests  presented  here  should,  however, 
clearly  demonstrate  that  this  method  has  considerable  possibilities. 

In  the  first  test,  the  sphere  will  be  subjected  to  forced  vertical 
oscillations  of  unit  amplitude  at  various  frequencies  in  otherwise  calm  wa¬ 
ter.  From  the  measured  pressures,  the  total  vertical  time-varying  force  on 
the  sphere  will  be  calculated,  which  is  then  used  to  derive  added  mass  and 
damping  coefficients.  The  added  mass  and  damping  coefficients  can  then  be 
compared  to  the  results  of  Havelock  [37]. 

In  the  second  test,  the  sphere  will  be  restrained  and  subjected  to 
regular  unidirectional  waves  of  various  frequencies  and  unit  amplitude.  Wave 
exciting  forces  in  heave  and  surge  can  be  measured  and  compared  with  analyti¬ 
cal  predictions  given  by  Garrison  [39]. 

The  numerical  particulars  for  both  tests  are  given  in  Table  3. 


Forced  Vertical  Motions  of  Sphere 

In  the  first  simulation,  the  semi  submerged  sphere  is  subjected  to 

vertical  oscillations  of  unit  amplitude  at  wave  numbers 
2 

k  =  =  0.4,  0.8,  1.0,  1.2,  1.6  and  2.0. 
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The  total  vertical  force  was  measured  over  two  to  three  full  cycles,  depending 
on  the  frequency,  up  to  about  20  seconds  of  simulation  time  with  time  steps  of 
0.2  seconds.  The  last  cycle  of  the  simulation  was  evaluated  to  derive  added 
mass  and  damping  coefficients  using  the  method  described  below. 


Table  3 

Numerical  Parameters 


NPAN 

= 

number 

of  panels 

= 

72 

L 

x 

= 

maximum 

length  scale 

in 

X 

= 

0.25 

1 

X 

= 

mi  nimum 

length  scale 

in 

X 

= 

2.5 

L 

y 

= 

maximum 

length  scale 

in 

y 

= 

0.25 

1 

y 

= 

mi nimum 

length  scale 

in 

y 

= 

2.5 

T 

= 

maximum 

time  scale 

= 

12  sec. 

9 

= 

gravi tati onal  accele 

rati  on 

= 

1.0 

p 

= 

fluid  density 

= 

1.0 

a 

= 

sphere 

radi us 

= 

1.0 

At 

= 

time  step  size 

= 

0.1 

The  vertical  displacement  of  the  sphere  from  its  mean  position  is  given  by 
y  =  A  sin  ut. 

The  linearized  equation  of  motion  for  the  sphere  in  forced  heave  is 
(m  +  a)  y  +  b  y  +  c  y  =  Yt. 


where 


m 

a 

b 

c 


mass  of  the  cylinder, 
hydrodynamic  or  "added"  mass  in  heave, 
damping  coefficient  against  vertical  motion, 
hydrostatic  restoring  coefficient  against  vertical  displace¬ 
ment,  and 

external  driving  force. 


The  total  hydrodynamic  force  acting  on  the  body  in  the  vertical  direc¬ 
tion  is 


Yh(t)  =  a  y  -  by. 

Assuming  this  hydrodynamic  force  is  a  harmonic  function  in  time  and  can  be 
written  as 
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Y  (t)  =7  sin  (mt  -  e  ), 


the  hydrodynamic  coefficients  are  obtained  by  equating  these  two  expressions 
for  Yh, 

Y 

COS  E 

a  =  —7 - 

uj  A 

and 

''sin  e 


The  amplitude  y  and  phase  shift  6  are  obtained  by  comparing  plots  of  the 
displacement  and  dynamic  pressure  force  Y^  acting  on  the  sphere  as  functions 

of  time  and  measuring  the  shift  in  phase.  A  comparison  of  the  results  ob¬ 
tained  with  Havelock's  results  is  shown  in  Figure  16.  The  solid  line  is 
Havelock's  results.  The  numerical  predictions  are  shown  as  circles.  As  can 
be  seen  from  Figure  16,  agreement  is  excellent. 

Figure  17  shows  a  time  sequence  of  the  free  surface  iisturbance  induced 
by  the  vertical  motion  of  the  sphere.  The  circle  represents  the  mean  still 
waterline  of  the  sphere.  The  radius  of  the  sphere  is  1.0  and  the  dimensions 
of  the  free  surface  area  shown  are  8x8.  The  wave  number  for  the  sequence  is 
k  =  1.0.  The  internal  standing  waves  inside  of  the  sphere  are  shown.  (These 
internal  standing  waves  should  produce  no  net  pressure.) 


Wave  Excitation  Forces  on  Semi  submerged  Sphere 

The  purpose  of  the  second  simulation  was  to  investigate  forces  on  the 
sphere  when  subjected  to  regular  waves  of  different  frequencies.  Figure  18 
shows  the  comparison  between  analytical  predictions  from  Garrison  [38]  for  the 
heave  and  surge  wave  exciting  forces  on  a  semi  submerged  sphere.  The  agreement 
is  excellent. 

Figure  19  shows  the  diffraction  wave  system  that  develops  from  regular 
waves  (h  =  1.4)  imposed  on  the  sphere.  The  ambient  wave  amplitudes  have  been 
subtracted  out  of  the  free  surface  plot  to  more  clearly  exhibit  the  diffracted 
waves . 


Other  Tests 


Attempts  were  also  made  to:  (a)  test  a  semi  submerged  sphere  in  forced 
vertical  oscillations  at  a  uniform  forward  speed;  and  (b)  to  conduct  forced 
oscillation  tests  for  ellipsoids  with  L/B  ratios  of  8:1  and  4:1.  In  each  of 
these  cases,  forces  quickly  increase  to  unrealistic  levels,  clearly  indicating 
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Figure  16  Added  Mass  and  Damping  Coefficients 
for  semi  submerged  sphere. 
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that  there  is  some  problem  associated  with  bcth  forward  speed  and  cases  with 
shapes  more  closely  representing  a  slender  ship.  The  reasons  for  these 
"blow-ups"  could  not  be  readily  identified. 


3.7  LIMITATIONS,  RUN  TIMS  AND  COMPUTATIONAL  REQUIREMENTS 
Theoretical  and  Numerical  Limitations 

(1)  The  limitations  of  strip  theory  generally  apply. 

(2)  The  limitations  of  linear  wave  theory  apply. 

(3)  The  limitations  of  linearized  hydrodynamic  formulations  (linear¬ 
ized  free  surface,  separation  of  potentials,  linearized  Bernoulli 
equation,  etc.)  apply. 

(4)  Strip  theory  formulations  here  do  not  include  terms  related  to 

the  spatial  derivative  of  damping  coefficients  (as  found  in 

"extended"  SCORES). 

(5)  Flare  force  is  computed  using  the  relative  free  surface  velocity 
in  contrast  to  using  a  component  of  average  subsurface  wave 
velocity.  Furthermore,  free  surface  distortion  effects  are  net 
included  (diffractions,  "pile-up,"  etc.). 

(6)  The  ambient  wave  system  for  the  three-dimensi onal  analysis  is 

formulated  for  unidirectional  waves  only. 

(7)  The  P,  E  and  X  source  influences  matrices  are  computed  only  for 

the  mean  hull  position  in  the  present  formulation.  Details  of 

the  computation  are  presented  in  Volume  II  of  this  report. 

(8)  The  use  of  either  a  pre-selected  or  time-varying  estimate  of 

added  mass  and  damping  coefficients  for  the  ship  motion-induced 
forces  in  i rregular  waves  is  an  approximation. 

(9)  Pitch  angle  must  not  become  large  enough  to  cause  the  intersec¬ 
tion  of  a  station  plane  and  the  sea  surface  so  that  multiple 
regions  or  a  closed  contour  in  the  station  plane  is  defined  [3], 


Run  Times 

Typical  run  times  for  several  simulations  with  strip  theory  derived 
forces  and  three-dimensionally  derived  forces  are  shown  in  Table  4  for  a 
VAX  11/750  without  a  floating  point  processor. 

It  is  estimated  that  reductions  in  run  time  by  a  factor  of  5-10  would 
occur  with  any  of  the  large  mainframe  CDC  machines;  and  a  reduction  by  a 
factor  of  15-20  would  occur  with  a  supercomputer  (CRAY  or  similar).  It  should 
be  emphasized  that  the  program  is  expensive  to  run,  regardless  of  the  type  of 
machine  on  which  it  is  installed. 
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Table  4 


SIMULATION  OF  . 

VAX  11/750  CPU  TIME 

Motion  and  Hull  Girder  Response  of  25-station  ship 

1200  CPU  seconds 

in  one  regular  wave.  Steady  state  evaluated  after 

2  minutes  real  time  with  At  =  0.5  sec. 

Motion  and  Hull  Girder  Response  of  25  station  ship 

16  CPU  hours 

in  irregular  wave  system  of  10  components  evaluated 

after  10  minutes  of  real  time  simulation. 

At  =  0.5  sec. 


Pressure  prediction  only  of 
seconds  real  time  At  =  0.1 


120  panel 
sec. 


body  for  15 


17 


CPU  hours 


Computational  Requirements 

The  computer  programs  were  developed  on  a  DEC  VAX  11/750.  The  peak 
working  set  size  was  250.  The  memory  requirement  for  the  completely  integrat¬ 
ed  program  (2D  plus  3D)  is  650K  bytes.  When  the  3D  subroutines  are  not  used 
and  only  2D  simulations  are  used,  the  memory  requirement  is  250K  bytes. 
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CONCLUSIONS  AND  RECOMMENDATIONS 


A  numerical  method  for  the  simulation  of  ship  motions,  hull  girder 
loads  and  transient  three-dimensional  hydrodynamic  pressures  has  been  devel¬ 
oped.  The  result  is  a  computer  program  that  is  capable  of  evaluating  nonline¬ 
ar  responses  of  surface  ships  associated  with  large  amplitude  motions.  The 
fundamental  limitation  of  the  approach  is  the  use  of  linear  wave  theory.  The 
restrictions  on  the  severity  of  the  sea  conditions  that  this  limitation  im¬ 
poses  is  not  yet  known,  although  it  is  believed  that  the  method  would  be 
appropriate  for  evaluating  motions  and  hull  girder  loads  in  moderately  severe 
sea  states. 

Furthermore,  the  three-dimensional  technique  developed  is  capable  of 
predicting  transient  hydrodynamic  pressures  on  time-varying  hull  shapes  moving 
with  arbitrary  motions  and  forward  speed.  Further  effort  is  required  to  fully 
realize  these  capabilities.  An  outline  of  the  suggested  work  is  given  in  the 
next  section. 

Although  the  method  presented  here  and  the  associated  computer  program 
need  additional  attention  tu  advance  them  from  the  investigative  and  develop¬ 
mental  stage  at  which  they  now  are,  some  progress  has  been  made  toward  a  more 
advanced  method  for  ship  motion  and  wave  load  prediction.  There  presently 
exists  no  other  program  for  the  time  domain  simulation  of  ship  motions  and 
loads  in  six  degrees  of  freedom  for  a  full  range  of  headings.  Nor  is  there 
any  other  program  capable  of  predicting  three-dimensional  distributed  hydro- 
dynamic  pressures  in  the  time  domain  for  arbitrary  ship  motions  in  waves. 

The  CAPSIZE  program  [3,29]  and  she  NSUP  program  [6]  which  were  used  as 
starting  points  for  the  present  method  have  been  extended  or  modified  in  the 
following  principal  ways: 

•  Actual  strip  theory  formulation  used  for  hydrodynamic  forces  in¬ 

stead  of  simplified  and  approximate  methods  for  added  mass,  damping 
and  wave  exciting  forces 

•  Hull  girder  loading  prediction  added,  including  "flare  force" 

effect 

•  .'he  addition  of  the  incident  wave  potential  into  the  three-dimen¬ 

sional  formulation 

•  A  number  of  computational  and  numerical  changes  associated  with  the 
calculation  of  two-dimensional  hydrodynamic  coefficients,  the 
evaluation  of  two-dimensional  hydrodynamic  forces,  and  the  evalua¬ 
tion  of  pressure  in  the  wave  above  the  still  water  level. 

The  bulk  of  the  effort  in  this  project  was  committed  to  the  concept 

development  of  a  suitable  method  and  the  development  and  testing  of  the  com¬ 
puter  code.  Because  of  the  particularly  time-consuming  nature  of  debugging 
and  testing  simulation  programs,  the  extent  of  the  validation  effort  has  been 
limited  to  the  minimum  number  of  runs  needed  to  verify  the  capabilities  of  the 
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computer  programs  and  evaluate  the  basic  theo ~v  and  numerical  techniques  when 
possible.  A  full  and  extensive  validation  of  the  methods  and  codes  would 
require  the  type  of  test  program  typically  associated  with  actual  (physical) 
model  testing,  with  a  level  of  effort  representative  of  a  major  project  in 
itself.  An  outline  of  a  simulator  test  program  is  provided  in  Appendix  A  as  a 
possible  basis  for  the  same  type  of  studies  reported  in  SSC-246*  [40]  and  SSC- 
271**  [41]  to  validate  and  further  investigate  SCORES  after  its  initial  devel¬ 
opment. 


Recommendat i ons 


The  work  presented  herein  represents  an  initial  level  of  investigation 
and  development.  The  numerical  methods  and  computer  programs  require  further 
testing,  validation  and  improvement.  The  following  list  of  recommendations 
indicates  areas  where  further  effort  is  required  or  desirable  in  the  near- 
term,  mid-term  or  far-term. 


Near-Term 


1.  A  comprehensive  test  and  validation  program  is  required,  an  outline  of 
which  is  given  in  Appendix  A  for  the  two-dimensional  method. 

2.  The  method  or  program  coding  for  the  computation  of  Froude-Kryl ov 
forces  or  strip-theory  derived  forces  should  be  corrected  or  improved 
to  provide  better  predictions,  specifically  heave  motion. 

3.  The  numerical  methods  and  coding  associated  with  the  three-dimensional 
technique  should  be  improved.  Specifically,  the  following  areas  will 
be  investigated  and  modified  or  improved: 

(a)  Investigate  the  method  used  for  computing  the  source  panel  veloci¬ 
ty  array  and  the  source  potential  influence  array.  The  so-called 
exact  method  of  Smith  and  Hess  might  be  improved.  More  efficient 
methods  might  also  be  incorporated.  There  may  be  reason  to  sus¬ 
pect  that  the  problems  with  the  ellipsoid  tests  attempted  are  due 
to  numerical  problems  in  this  area. 

(b)  Investigate  the  theoretical  formulations  that  include  some  forward 
speed  effects.  Investigate  the  numeri cal /computational  repre¬ 
sentation  of  the  theory.  Check  the  coding  dealing  with  forward 
speed  aspects.  Identify  any  deficiencies  and  make  the  appropriate 
changes  and  additions. 


*  Kaplan,  P.,  et  a  1 ,  "Theoretical  Estimates  of  Wave  Loads  on  the  Sl-7 
Contai nership  in  Regular  and  Irregular  Waves,"  SSC-246,  1974. 

**  Kaplan,  P.,  et  al ,  "A  Correlation  Study  of  SL-7  Contai nershi p  Loads  and 
Motions  -  Model  Tests  and  Computer  Simulations,"  SSC-271,  1977. 


4-2 


(c)  Examine  the  feasibility  and  necessity  of  applying  a  different 
free-surface  condition  interior  to  the  hull.  As  Chapman  suggested 
in  [5],  instead  of  using  the  linearized  free-surface  condition 
over  the  entire  free  surface,  the  surface  elevation  interior  to 
the  hull  can  be  constrained  to  be  uniformly  zero  by  placing  sur¬ 
face  panels  over  this  region.  This  would  suppress  standing  waves 
which  are  excited  in  the  hull  interior  as  a  by-product  of  the 
potential  *  1 ow  method  of  simulation. 


(d)  Investigate  more  efficient  ways  of  computing.  For  example,  if  we 

can  assume  that  motions  are  sufficiently  small,  then  certain 

values  which  are  functions,  sums  and  products  of  the  various 
source  influence  arrays  might  be  precomputed  ana  stored,  rather 

than  computing  them  inside  computat i ona 1  loops  over  kx  and  ky  wave 
numbers  for  each  panel. 

(e)  Demonstrate  the  accuracy  and  capabi 1 i t s es  of  the  program  by  com¬ 
paring  numerical  results  with  predictions  from  theory  or  other 

programs  for  various  shapes  at  zero  speed  (spnere,  ellipsoids, 
barge  shape,  ship  shape)  and  for  those  shapes  vith  forward 
speed.  The  basis  for  these  comparisons  would  be  added  mass, 

damping  and  wave  excitation  coefficients. 


(f)  Carry  out  sufficient  testinq  to  develop  an  experience  base  for 
setting  the  parameters  for  the  spectral  wave  representation. 


t  ~  ■ 
\  r  , 


Investigate  and  demonstrate  the  ability  of  the  method  to  properly 
predict  the  distributed  hydrodynamic  loads  on  the  underwater  hull. 


( h  1 


Examine  the  ieesiDility  and  identify  the  numerical  techniques  that 
would  allow  for  the  underwater  hull  form  to  change  with  time. 


d  -  T  6  P  rr. 


Appropriate  specific  methoos  to  predict  slamming  loads  and  green  water 
loads  should  be  investigated  and  incorporated  in  the  present  program. 

An  advanced  statistical  processing  routine  should  be  incorporated  in 
the  program  to  derive  frequency  response  spectra,  as  well  as  probabili¬ 
ty  density  functions  and  cumulative  distributions  of  maxima  and  minima. 

A  method  should  be  investigated  and  approp-’ ate  subroutines  incorpo¬ 
rated  to  structural ly  model  the  ship  hull  girder  in  order  to  predict 
transient  non-rigid  body  response. 

Improved  coding  for  the  computation  of  sectional  mass  distribution 
properties  should  be  written. 

Coding  for  the  computation  of  appendage  damping  should  be  written. 
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Far-Term 


9.  Linear  wave  theory  was  assumed  for  the  present  model  and  is  consistent 
with  the  linearized  free-surfasc  f  ormu1  at'  on.s  associated  with  strip 
tneory  and  tne  three-dimensional  metnod.  It  may  be  worthwhile,  how¬ 
ever,  to  pursue  the  use  of  a  nonlinear  wave  theory  to  generate  large 
amplitude  deterministic  unidirectional  waves.  Although  the  nonlinear 
wave  could  not  be  applied,  in  a  strict  sense,  within  the  hydrodynamic 
formulations  as  they  exist  in  the  two-  and  three-dimensional  formula¬ 
tions,  they  could  be  accounted  for  in  an  approximate  way.  Hydrostatic 
arc  dynamic  buoyancy  forces  could  be  accounted  for  "exactly."  Ship 
met i or-i nauced  nydrodynamic  forces  could  be  approximated  as  they  are  in 
the  present  version.  Diffraction  forces  could  be  possibly  estimated  by 
using  tne  same  method  as  now  exists  but  representing  +he  nonlinear  wave 
ir  the  vicinity  of  the  ship  with  a  similarly  proportioned  linear 
wave.  For  tne  transient  ores sure  simulation,  the  exact  nonlinear  wave 
Li  nematics  could  he  used  to  prescribe  part  of  the  body  boundary  condi¬ 
tio"  at  the  carter  of  each  panel. 

10.  >e  use  of  the  impu.se  response  function  and  ce-.: lotion  integral  to 
predict  ship  motion-induced  damping  forces  should  be  investigated  and 
apr rppri ate  subrout ine(s}  included  in  the  present  version.  iris  would 
be  a  partial  alternative  for  the  characteristic  frequency"  scheme  new 
l  place. 

Tne  e^'orts  isted  under  each  of  the  above  categories  can  be  grouped 
into  the  three  separate  projects  vith  the  following  approximate  level  of 
effort  suggested: 

Near-Term  Project  3000  manhours 

M'd-Ternr  Project  2000  manhours 

Far-Term  Project  2000  manhours 

Tne  near-term  proje ct  should  be  consid ered  a  necessary  requirement  in 
order  i rat  tne  methods  an c  computer  programs  initiated  here  are  sufficiently 
ceve icpec  anc  proven  for  practical  use. 


I 


REFERENCES 


1.  Smith,  C.S.,  "Measurement  of  Service  Stresses  in  Warships,"  Conference  on 

Stresses  in  Service,  Inst,  of  CK.  Engrs.,  March  1966. 

2.  Meek,  K. ,  et  al  ,  "The  Structural  Desian  of  the  O.C.L.  Container  Ships," 

Trans.  RINA,  Vol  .  IK,  1972. 

3.  Oakley,  Q.K.,  Paulling,  J.F.  and  Wood,  P.D.,  "Ship  Motions  and  Capsizing 
in  Astern  Seas,"  Tenth  Symposium  or  Naval  Hydrodynami cs ,  MIT,  Cambridge, 
pp.  297-350,  ONR  Report  ACR-204,  June  1S74. 

4.  Raff,  A.  I.,  "Program  SCORES  -  Snips  Structural  Response  in  Waves," 

SSC-230  ,  1972.  N'T  I S  AD  752568. 

5.  Chapman,  R. ,  "Large  Amplitude  Transient  Motion  of  Two-Dimensional  Float¬ 

ing  Bodies,"  Journal  of  Ship  Research,  Volume  23,  No.  1,  March  1979. 

6.  Chapman,  R.,  "Time  Domain  Method  for  Computing  Forces  and  Moments  Acting 

on  Three-Dimensional  Surface  Piercing  Ship  Hulls  with  Forward  Speed,"  SAI 
Report  No.  461 -80-560- CJ ,  September  1580. 

7.  Chang,  M.S.,  "Computations  of  Three-Dimensional  Ship  Motions  with  Forward 

Speed,"  Proceedings,  Second  International  Conference  on  Numerical  Ship 
Hydrodynami cs,  Berkeley,  California,  September  1977. 

8.  Pettersen,  B.,  "Calculation  of  Potential  Flow  About  Three-Dimensi onal 
Bodies  in  Shallow  Water  with  Particular  Application  to  Ship  Maneuvering," 
Norwegian  Institute  cf  Technology,  Trondheir  ,  Norway,  (Unpublished), 
1981. 

9.  von  Kerczek,  C. ,  "Numerical  Solution  of  Naval  Free  Surface  Hydrodynamics 

Problems,"  First  Internati onal  Conference  on  Numerical  Ship  Hydrodynam¬ 
ics,  Be^nesda,  October  1975. 

10.  McCormick,  S.  and  Thomas,  J.W.,  "Mjltigrid  Met  hods  Applied  to  Water  Wave 
Problems,"  Third  Internati onal  Conference  on  Numerical  Ship  Hydrodynam¬ 
ics,  Paris,  June  1981. 

11.  tsai,  K.J.,  "A  Localized  Finite  Elemet  Method  for  Three-Dimensional  Ship 
Motion  Problems,"  Third  International  Conference  on  Numerical  Ship  Hydro¬ 
dynamics,  Paris,  June  1981. 

12.  Bai  ,  K.J.  and  Yeung,  R.W.,  "Numerical  Solutions  to  Free  Surface  Flow 
Problems,"  The  Tenth  Symposium  on  Naval  Hydrodynamics,  Office  of  Naval 
Research  held  at  MIT,  Cambridge.  1974. 

13.  Chen,  H.S.  and  Mei ,  C.C.,  "Oscillations  and  Wave  Forces  in  a  Man-Made 
Harbor  in  the  Open  Sea,"  The  Tenth  Symposium  on  Naval  Hydrodynamics, 
Office  of  Naval  Research  held  at  MIT,  Cambridge,  1974. 


5-1 


REFERENCES  (continued) 


14.  Setc,  H.  and  Yamamoto,  Y.,  "Finite  Element  Analysis  of  Surface  Wave 
Problems  by  a  Ftethod  of  Superposi t i on , "  The  First  International  Confer¬ 
ence  on  Numerical  Ship  Hydrodynamics,  DTNC'DC,  Bethesda,  pp.  49-70, 
(1975). 

15.  vue,  D.K.P.,  Chen,  H.S.  and  Ffei  ,  C.C.,  "Three  Dimensional  Calculations  of 
Wave  Forces  by  a  Hybrid  Element  Method,"  The  Eleventh  Symposium  on  Naval 
Hydrodynamics,  Office  of  Naval  Research,  pp.  325-332,  (1976). 

16.  Chowdbury,  P.C.,  "Fluid  Finite  Elements  W  Added-Ftess  Calculations," 
International  Shipbuilding  Progress,  Volume  19,  No.  217,  pp.  302-309, 
(1972). 

17.  Beale,  J.T.,  "Eigenfunction  Expansions  for  Objects  Floating  in  an  Open 
Sea,"  Communications  on  Pure  and  Applied  Flathemati cs,  Volume  30,  pp.  283- 
313,  (  1977) . 

18.  Licht,  C.,  "Time-Dependent  Behavior  of  Floating  Bodies,"  Third  Inter¬ 
national  Conference  on  Numerical  Ship  Hydrodynamics,  Paris,  June  1981. 

19.  Jami ,  A.,  "Numerical  Solving  of  Transient  Linear  Hydrodynamics  Problems 
by  Coupling  Finite  Elements  and  Integral  Representation,"  Third  Inter¬ 
national  Conference  on  Numerical  Ship  Hydrodynamics,  Paris,  June  1981. 

20.  Skjordal,  S.O.,  "A  Rational  Strip  Theory  Approach  for  the  Evaluation  of 
Springing,"  Norwegian  Institute  of  Technology,  Trondheim,  January  1978. 

21.  Troesch,  A.W.,  "The  Diffraction  Potential  for  a  Slender  Ship  Ftoving 
Through  Oblique  Waves,"  Department  of  Naval  Architecture  and  Ffarine 
Engineering,  The  University  of  Fti chi g a n ,  Report  No.  17,  1976. 

22.  Bourianoff,  G.I.  and  Penumalli,  B.R.,  "Final  Report  on  Computational  Pre¬ 
diction  of  Ship  Motion  in  Confined  Waters  Using  Inertial  Marker  Parti¬ 
cles,"  FiARAD  Report  MA-RD-940-77084A,  November  1978. 

23.  Fritts,  K.J.  and  Boris,  J.P.,  "Transient  Free-Surface  Hydrodynamics," 
Second  International  Conference  on  Numerical  Ship  Hydrodynamics,  Berke¬ 
ley,  September  1977. 

24.  Nichols,  B.D.  and  Hirt,  C.W.,  "Nonlinear  Hydrodynamic  Forces  on  Floating 
Bodies,"  Second  International  Conference  on  Numerical  Ship  Hydrodynamics, 
Berkeley,  September  1977. 

25.  Chuang,  S. ,  Schroeder,  A.E.  and  Wybranice,  S.,  "Structural  Seaworthiness 
Digital  Computer  Program  (ROSAS),"  DTNSRDC  Report  No.  77-0001,  May  1977. 

26.  Ffeyerhoff,  W.K.  and  Schlacter,  6.,  "An  Approach  for  Determination  of 
Hull -Girder  Loads  in  a  Seaway  Including  Hydrodynamic  Effects,"  Ocean 
Engineering,  Volume  7,  No..  2,  1980. 


5-2 


REFERENCES  (continued) 


27.  Borresen,  R.  and  Tellsga,  R.,  "Nonlinear  Response  of  Vertical  Motions  and 
Loads  in  Regular  Head  Waves,  Part  I  (Text)  and  Part  II  (Figures),"  DNV 
Report  79-1097,  December  1979. 

28.  Oliver,  J.C.,  "Development  of  an  Advanced  ffethod  for  Ship  Motion  and  Wave 
Load  Prediction  -  Phase  I  Report,"  Giannotti  &  Associates,  Inc.  Report 
No.  80-083-001,  January  1982. 

29.  Fallen,  W.J.,  Hwang,  Y.L.,  Liquori ,  J.L.,  Daulling,  J.R.,  Viseneau,  G. 
and  Wood,  P.D.,  "Model  Tests  and  Numerical  Simulation  of  Ship  Capsizing 
in  Following  Seas,"  USCG  Report  No.  CG-D-08-81. 

30.  Chakrabarti ,  S.K.,  "Laboratory  Generated  Waves  and  Wave  Theories,"  Jour¬ 
nal  of  Waterway,  Port  Coastal  and  Ocean  Engineering,  Volume  106,  August 
1980. 

31.  Kaplan,  P.  and  Sargent,  T.P.,  "Further  Studies  of  Computer  Simulation  of 
Slamming  and  Other  Wave-Induced  Vibratory  Structural  Loadings  on  Ships  in 
Waves,"  SSC  Report  231,  1972. 

32.  Hess,  J.L.  and  Smith,  A.M.O.,  "Calculation  of  Non-Lifting  Potential  Flow 
About  Arbitrary  Three- Di mens i onal  Bodies,"  Douglas  Aircraft  Company, 
Report  No.  E.S.  40622,  hferch  1962. 

33.  Zielinski,  T.E.,  "User  hfenual  for  Program  SCORES,  Second  Part  of  the  USCG 
Ship  Motion  Program,"  HMC  Report  CG-M-8-80,  July  1980. 

34.  Gerritsma,  J.  and  Beukelman,  W. ,  "Analysis  of  the  Modified  Strip  Theory 
for  the  Calculations  of  Ship  Motions  and  Wave  Benaing  Moments,"  Inter¬ 
national  Shipbuilding  Progress,  Volume  14,  August  1967. 

36.  Dalzell,  T.F.  and  Chiocco,  K.J.,  "Wave  Loads  in  a  Model  of  the  SL-7  Con- 
tainership  Running  on  Oblique  Headings  in  Regular  Waves,"  SSC-239,  1973. 

36.  Loukakis,  T.A.,  "Computer-Aided  Prediction  of  Seakeeping  Performance  in 
Ship  Design,"  MIT  Report  No.  70-3,  August  1970. 

37.  Havelock,  T.,  "Waves  Due  to  a  Floating  Sphere  Making  Heaving  Oscilla¬ 
tions,"  Proceedings  Royal  Society  of  Architects,  231,  1956,  pp.  1-7. 

38.  Kim,  W.P.,  "On  the  Harmonic  Oscillations  of  a  Rigid  Body  on  a  Free  Sur¬ 
face,"  Journal  of  Fluid  hfechanics,  1964. 

39.  Garrison,  C.J.,  "Hydrodynamics  of  Large  Objects  in  the  Sea,  Part  I  - 
Hydrodynamic  Analysis,"  Journal  of  Hydronauti cs ,  Vol  .  8,  January  1974, 
pp.  5-12. 


5-3 


APPENDIX  A 


NUMERICAL  SIMULATOR  TEST  PROGRAM 


1.0  OBJECTIVE 

The  objective  is  to  fully  exercise  the  computer  program  SSX,  using 
as  a  test  vehicle  a  ship  for  which  model  tests  have  been  carried  out 
for  a  range  of  headings,  speeds  and  wave  heights,  with  emphasis  on 
lower  speeds  and  higher  wave  heights. 


2.0  TEST  SERIES 


2.1  TEST  SERIES  A  -  REGULAR  WAVE  TESTS 


The  ship  is  subjected  to  unit  amplitude  unidirectional  regu¬ 
lar  waves  at  five  headings,  four  Froude  numbers,  and  at  six  fre- 
ouencies  correspondi ng  to  various  wavelength/ship-length  ratios. 
The  critical  parameters  are: 


Wavelength  Parameters  ( X / L ) 
at  p  =  0  1 8  O' 

Froude  Numbers  ( F  ) 

Headings  (p ) 

Measurements 


0.5,  0.75,  1.0,  1.25,  1.5,  2.0 
(or  equivalent  at  other  headings) 

0.0,  0.05,  0.10,  0.15 

180,  135,  90,  45,  0 

-  (a)  C.G.  Motions 

(b)  Midships  Hull  Gi  rder  Loads 

(c)  Sect i ona 1  Forces  Including 

Hydrostatic,  Froude-Kryl ov , 
Wave  Exciting  and  Ship 

Motion  Induced  Forces 


Total  Number  of  Runs  120 


2.2  TEST  SERIES  B  -  LINEARITY  CHECKS  (NO  FLARE  FORCE) 

The  ship  is  subjected  to  unidirectional  regular  waves  of  four 
different  heights,  six  frequencies,  two  speeds  and  five  head¬ 
ings.  The  critical  parameters  are: 

Wave  Height  (HJ  0.2D,  0.4D,  0.60,  0.8D 

(Where  D  is  Ship  Depth) 

Wavelength  Parameters  (X / L )  0.5,  0.75,  1.0,  1.25,  1.5 

(With  the  Constraint  H/X  <  .1) 
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Froude  Numbers  (F  ) 

Headings 

Measurements 

Total  Number  of  Runs 


0.0,  0.10 

180,  135,  90,  45,  0 

(a)  C.G.  Motions 

(b)  Midships  Hull  Girder  Loads 

200 


2.3  TEST  SERIES  C  -  LINEARITY  CHECK  WITH  FLARE  FORCE  INCLUDED 

The  ship  is  subjected  to  unidirectional  regular  waves  in  head 
and  following  directions,  three  speeds  and  five  frequencies  and 
four  wave  heights.  The  critical  parameters  are: 


Wavelength  Parameters  (X/L) 
Froude  Numbers  ( F  ) 

Headi nos 

_  .  .w  -  - 

Wave  Heights 
Measurements  Taken 

Total  Number  of  Runs 


0.5,  0.75,  1.0,  1.25,  1.5 
0.0,  0.10,  0.15 
180,  0 

0. 2D,  0.4D,  0.6D,  0.8D 

(a)  C.G.  Motions 

(b)  Midships  Hull  Girder  Loads 

(c)  Sectional  Forces 

120 


2.4  TEST  SERIES  D  -  LINEARITY  CHECK  WITH  DRAFT- DEPENDENT  HYDRODYNAMIC 
COEFFICIENT  SELECTION 


The  ship  is  subjected  to  unidirectional  regular  waves  of  four 
different  heights,  six  frequencies,  two  speeds  and  three  head¬ 
ings.  The  critical  parameters  are: 


Wave  Height 
Wavelength  Parameters 
Froude  Numbers 


0.2D,  0.4D,  0.6D,  0.8D 
0.5,  0.75,  1.0,  1.25,  1.5,  2.0 
0.0,  0.10 


Headings 

Measurements 


Total  Number  of  Runs 


180,  135,  90 

(a)  C.G.  Motions 

(b)  Midships  Hull  Girder  Loads 

(c)  Sectional  Forces 

144 
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2.5  TEST  SERIES  E  -  IRREGULAR  WAVE  TESTS 


Tne  ship  is  subjected  to  four  unidirectional  irregular  sys¬ 
tems  with  frequency  spectra  corresponding  to  a  two-parameter 
Bret schnei der  formulation,  one  speed,  five  headings.  The  critical 
parameters  are: 


Significant  Wave  Heights  (H  ) 
Spectal  Modal  Frequencies 
Headi ngs 
Froude  Number 
Measurements  Taken 


10,  20,  30,  40  ft. 

Most  Probable 
180,  135,  90,  45,  0 
0.10 

(a)  C.G.  Motion  Statistics 

(b)  Midship  Hull  Girder  Load 
Stati sti cs 


Total  Number  of  Runs 


20 


In  Test  Series  E,  the  frequency  at  which  the  2-D  hydrodynamic 
coefficients  are  selected  is  fixed  according  to  the  peak  of  the 
response  spectra  obtained  from  a  linear  frequency  domain  analysis. 


2.6  TEST  SERIES  F  -  IRREGULAR  WAVE  TESTS  WITH  DRAFT-DEPENDENT  HYDRO- 
DYNAMIC  COEFFICIENT  SELECTION 


The  ship  is  subjected  to  three  unidirectional  wave  systems, 
one  speed,  three  headings.  Two-dimensional  coefficients  are 

selected  as  a  function  of  instantaneous  sectional  draft.  The 
critical  parameters  are: 

Significant  Wave  Heights  (H  )  20,  30,  40 

Headings  180,  135,  90 

Froude  Number  0.10 


Measurements  Taken  (a)  C.G.  Motion  Statistics 

(b)  Midship  Hull  Girder  Load 
Stati sti cs 


Total  Number  of  Runs  6 

For  Test  Series  F,  the  ship  motion  hydrodynamic  coefficients 
are  selected  as  with  Test  Series  E. 
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2.7  TEST  SERIES  6  -  IRREGULAR  WAVE  TEST!  (WITH  VARYING  FREQUENCY) 


Same  as  Test  Series  D,  except  the  2-D  hydrodynamic  coeffi¬ 
cients  associated  with  ship  motion-induced  forces  are  selected 
according  to  the  most  recent  measured  zero  crossing  periods  of 
motion. 

Additional  feasurement  Taken  Automatically  -  Selected 

Frequencies  Used  for  Heave, 
Sway  and  Roll  2-D  Coefficients 

Total  Number  of  Runs  2D 


3.0  SCOPE  OF  WORK 

The  following  table  is  used  to  estimate  computer  costs  using  a 
VAX  11/750  witn  below  average  rates: 


Test  Series  No.  Runs  CPU  Hours  Per  Run  Subtotal  Hours 


A 

120 

1 

120 

R 

200 

1 

200 

C 

120 

1 

120 

D 

144 

1 

144 

E 

20 

32 

640 

F 

6 

32 

192 

G 

20 

32 

640 

2056  CPU  HOURS 

If  we  assume  a  rate  for  CPU  time  on  a  commercial  VAX  11/750  is  at 
least  $60/ CPU  Hour,  the  total  computer  charge  would  be  at  least 
$123,360.00.  There  are  also  a  significant  amount  of  manhours  involved 
in  preparing  the  input  data.  Analyses  and  evaluation  of  the  resultant 
data  would  also  require  at  least  1000  manhours. 

Even  if  the  number  of  runs  could  be  reduced  by  half,  a  full  set  of 
validation  runs  for  SSX  requires  a  surprisingly  large  amount  of  effort 
and  computational  resources. 
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APPENDIX  A 


1.  INTRODUCTION 


Program  SSC  performs  a  time-domain  simulation  of  ship  motions,  hull 
girder  loads  and  distributed  pressures.  Two  preprocessing  programs  -  HYDREX2 
and  HYDREX3  -  perform  certain  calculations  in  preparation  for  a  simulation. 

Program  HYDREX2  computes  two-dimensional  sectional  hydrodynamic  coefficients 
and  HYDREX3  calculates  several  arrays  associated  with  the  three-dimensional 
source  representation  of  the  hull.  Program  input  includes  a  description  of 
the  ship's  hull  by  sectional  offsets,  representati on  of  the  hull  by 
quadrilateral  or  triangular  panels,  ship  geometric  and  inertial  particulars, 
operational  and  environmental  specifications,  and  simulation  parameters  and 
job  options.  Output  includes  a  time  history  plus  statistical  summaries  of 

heave,  Ditch,  sway,  roll,  yaw,  vertical  and  horizontal  shear  and  bending 

moments,  torsional  moments  and  dynamic  pressures  at  centers  of  hull  surface 
panels.  The  present  version  of  the  program  contains  several  features  to 

facilitate  experiments  with  alternative  techniques.  The  program  SSX  can  be 
run  in  a  batch  or  interactive  mode.  The  three  programs  are  written  in 
FORTRAN  77  and  developed  on  a  DEC  VAX  11/750  computer. 

This  volume  (Volume  II)  provides  instructions  to  the  user  for  performing 
computations  with  SSX,  HYDREX2  and  HYDREX3.  A  technical  description  of  the 
model  formulation  and  solution  procedures  are  provided  in  Volume  I. 

Program  structure  and  computational  overview  is  first  given  in 
Section  2.  Program  software  specifications  are  described  in  Section  3.  Run 
procedures  are  given  in  Section  4  with  input  and  output  variable 
descriptions.  A  sample  case  in  Section  5  illustrates  code  application. 
Program  listings  are  contained  in  Appendix  A. 
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2. 


GENERAL  STRUCTURE  AND  COMPUTATIONAL  OVERVIEW 


A  simplified  schematic  of  the  basic  flow  of  information  is  provided  in 
Figure  1.  It  shows  the  major  sequence  of  information  processing.  Three  data 
files  are  initially  required.  The  _basic  Jnformation  _fi le  [BIF]  contains  basic 
geometric  and  mass  properties  of  the  ship,  operational  and  environmental 
parameters,  and  calculation  specifications,  simulation  parameters  and  job 
options.  The  ship  offset  file  [OFF]  gives  station  offset  data.  The  hull 
panel  file  [PAN]  contains  nodal  points  and  connectivity  relationships  to 
represent  the  hull  surface  by  quadri 1 ateral  and/or  triangular  panels. 

Program  HYDREX2  uses  the  [BIF]  file  and  [OFF]  file  to  calculate  two- 
dimensional  hydrodynamic  added  mass  and  damping  coefficients  using  the  Frank 
Close-Fit  method.  HYDREX2  places  the  results  of  its  computation  in  a  two- 
dimensional  coefficient  file  [COF].  It  also  provides  a  printout  of  its 
results. 

Program  HYDREX3  uses  the  [PAN]  file  to  compute  panel  center  coordinates, 
areas,  normals,  source  density  matrix  [E],  panel  pressure  matrix  [PP]  and 
forward  velocity  pressure  matrix  [PX],  The  results  are  placed  in  a  data  file 
[MAT],  HYDREX3  need  not  be  run  if  it  is  anticipated  that  distributed 
pressures  will  not  be  required. 

Program  SSX  uses  the  [BIF]  data  file,  the  [COF]  data  file,  the  [MAT]  data 
file  (if  a  pressure  distribution  is  desired),  and  the  [OFF]  data  file.  SSX 
output  includes  an  input  data  summary,  time  domain  results  and  response 
statistics. 

A  simplified  flow  schematic  of  the  SSX  program  is  given  in  Figure  2. 
The  main  program  routine  SSX  initially  asks  for  the  names  of  the  [BIF],  [OFF], 
[COF]  and  [MAT]  data  files.  Subroutine  READIN  is  called  to  load  the  necessary 
variables  and  arrays  using  data  read  in  from  the  four  data  files. 
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At  this  point  all  data  has  been  entered,  and  subroutine  PREPARE  is  called 
to  initialize  certain  arrays  and  perform  some  computations  in  preparation  for 
the  simulation.  Next,  subroutine  COFFEE  is  called  to  load  a  set  of  arrays 
that  contain  the  initial  set  of  two-dimensional  hydrodynamic  coefficients 
associated  with  the  mean  still  water  draft,  the  frequencies  of  encounter  of 
the  wave  components  and  the  predicted  characteristic  frequencies  of  ship 
motion. 

The  program  then  calls  F0LI01  to  display  the  basic  input  data  and  some 
computed  preparatory  information.  At  the  option  of  the  user,  subroutine 
OUTCOF  can  be  called  to  display  the  initial  set  of  two-dimensional 
hydrodynamic  characteristics. 

Now  the  actual  simulation  is  ready  to  begin.  At  each  time  step,  the 
subroutine  F0LI02  is  called  to  display  motion  and  loads  response  values  for 
that  time.  Thus  F0LI02  is  initially  called  at  t  =  0.  The  program  then 
proceeds  with  the  simulation.  Within  the  time  step  loop  in  the  main  program, 
three  subroutines  are  called  -  RK4 ,  HULL  and  PRESSURE.  The  subroutine  RK4 
sets  up  and  solves  the  equations  of  motions,  the  subroutine  HULL  evaluates 
hull  girder  loads,  and  the  subroutine  PRESSURE  evaluates  dynamic  pressure  at 
the  center  of  each  hull  surface  panel.  PRESSURE  is  only  called  for  a  user- 
selected  period  of  time  within  the  simulation.  Both  the  RK4  and  PRESSURE 
subroutines  lead  into  the  large  number  of  subroutines  which  will  be  described 
in  the  next  two  paragraphs.  At  the  end  of  each  time  step,  the  time  is 
compared  to  the  user  specified  stop  time.  The  loop  is  updated  if  the  stop 
time  has  not  been  reached.  If  it  has  been,  the  simulation  stops,  and 
subroutine  FINI  is  called  to  provide  summary  statistics. 

Figure  3  provides  a  simplified  representation  of  the  computational 
process  associated  with  the  solution  of  the  equations  of  motion.  The 
subroutine  RK4  calls  DERIV  four  times  for  each  time  step  according  to  the 
fourth  order  Runga-Kutta  scheme.  The  subroutine  DERIV  sets  up  the  equations 
of  motion  in  the  form  of  four  first  order  ordinary  differential  equations.  It 
evaluates  the  derivatives  to  be  integrated  by  RK4.  The  subroutine  DERIV  calls 
subroutine  FORTIS  to  evaluate  external  forces  and  moments,  which  include 
hydrostatic  and  hydrodynamic  forces  calculated  by  subroutine  AQUA2D.  The 
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subroutine  AQUA2D  calls  a  number  of  other  supporting  subroutines  and 
functions.  MOCHA  evaluates  2-D  hydrodynamic  coefficients  when  they  are  to  be 
a  function  of  sectional  draft  and/or  ship  motion  characteristic  frequencies. 
KRYLOV  evaluates  ponential  and  trigonometric  integrals  for  each  section. 
Functions  ETAF  and  ETABAR  evaluate  the  wave  surface  elevation. 

The  computational  process  associated  with  hull  surface  pressure 
calculations  is  provided  in  Figure  4.  Subroutine  PRESSURE  calls  ACPTR  which 
computes  the  pressures  and  normal  acceleration  at  panel  centers  induced  by  the 
free  surface.  Next  subroutine  ZBLACN  determines  the  relative  normal 
acceleration  at  each  panel  by  subtracting  the  free  surface  induced 
accelerations  and  incident  wave  field  accelerations  from  the  hull  kinematical 
acceleration.  The  time  derivative  of  panel  source  strengths  are  also 
evaluated  in  ZBLACN.  Next,  subroutine  POTB  is  called  to  obtain  body-induced 
pressures.  The  body-induced  pressure  is  added  to  the  free-surface-induced 
pressure  at  each  panel.  The  final  subroutine  is  CFSR  which  advances  the  free 
surface  representation  in  preparation  for  the  next  time  step. 

If  subroutines  to  evaluate  bottom  slamming  and  green  water  loads  were  to 
be  included  in  later  modifications  to  the  program  SSX,  they  should  be  called 
from  the  subroutine  AQUA2D.  Any  force  as  a  function  of  time,  displacement 
velocity  and  position  on  the  ship  can  be  evaluated  from  the  information 
available  at  any  instant  within  AQUA2D. 
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FIGURE  2 

COMPUTATIONAL  PROCESS  ASSOCIATED 
WITH  THE  SETUP  AND  SOLUTION  OF 
THE  SHIP  EQUATIONS  OF  MOTION 
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FIGURE  4 

COMPUTATIONAL  PROCESS  ASSOCIATED  WITH  HULL 
PRESSURE  CALCULATIONS 
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3.  GENERAL  SOFTWARE  SPECIFICATIONS 


The  three  codes  conform  to  ANSI  X3. 9-1978  FORTRAN  77.  They  were 

developed  on  a  Digital  Equipment  Corporation  VAX  11/750  computer  with  a 

working  set  size  of  250  pages.  The  only  obvious  machine  depending  coding  are 
OPEN  statements  to  open  and  assign  files. 

Rather  than  completely  developing  new  codes,  two  previously  developed  and 
tested  codes  were  used  as  a  basis  for  the  present  three  codes.  The  CAPSIZE 

program  written  at  the  University  of  California,  Berkeley  by  Paul  Wood  was 

used  as  a  starting  point.  The  basic  variable  assignments  used  in  that  program 
were  retained,  as  was  the  basic  computational  scheme  for  the  equations  of 
motion.  For  the  three  dimensional  pressure  computations,  a  program  developed 
by  R.B.  Chapman  entitled  NSUP  was  used  as  a  starting  point.  Some  of  the 
subroutines  contained  in  NSUP  and  CAPSIZE  were  adopted  directly,  while  others 
were  completely  rewritten.  A  number  of  new  subroutines  were  written  as  well. 
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SSX  Subroutin es_ 

The  following  is  a  list  of  subroutines  and  functions  used  in  the  SSX. 

Short  descriptions  are  given  here  and  the  more  complicated  subroutines  should 
be  sufficiently  well  documented  internally  to  clearly  illustrate  the 
computational  process. 

MAIN  The  purpose  of  the  main  program  is  to  accept  data  file 

names,  open  the  appropriate  files,  read  input  data,  call 

several  subroutines  to  prepare  data  for  the  simulation, 
and  then  execute  the  time  step  loop  wnich  calls  the 

several  subroutines  which  perform  the  simulation  of 
motion,  hull  girder  loads  and  hull  dynamic  pressures. 
Calls  READIN,  SETUP,  PREPARE,  COFFEE,  F0LI01,  OUTCOF, 
FOLI02,  RK4,  HULL,  PRESSURE  and  FINI. 

READIN  Reads  data  from  the  basic  information  file  [BIF],  the  ship 

offset  file  [OFF],  the  sectional  hydrodynamic  coefficient 
file  [COF]  and  the  panel  pressure  matrices  file  [MAT]. 
Prints  an  echo  of  data  read  from  [BIF].  Called  from  MAIN. 

PREPARE  Performs  computations  in  preparation  for  simulation, 

including  (a)  from  given  offsets  on  the  port  side,  assigns 
symmetrical  offsets  on  starboard  side,  (b)  recomputes 

offset  coordinates  relative  to  center  of  mass,  (c) 
consolidates  fore  and  aft  profile  coordinates  into  a 
single  pair  of  arrays,  (d)  loads  certain  sectional  mass 

arrays  and  generalized  mass  matrix,  (e)  computes  wave 

numbers,  (f)  converts  initial  data  in  degrees  to  radians, 
(g)  converts  initial  linear  velocities  from  ship 
coordinates  to  fixed  coordinates,  and  (h)  divides  all 
sectional  hydrodynamic  coefficients  by  fluid  density,  (i) 
initializes  special  free  surface  representation  for 
pressure  calculations.  Calls  AFSR.  Called  from  MAIN. 


3-2 


ROTATE 


FOLIOl 


DERIV 


FI  N I 


RK4 


ERROR 


KRYLOV 


COFFEE 


Sets  up  coordinate  system  rotation  matrices.  Called  from 
PREPARE,  FORTIS. 

Displays  ship  motion  response  and  hull  girder  loading 
response  values  for  each  time  step.  Also  accumulates  data 
for  post  simulation  statistical  analysis.  Called  from 
MAIN. 

Evaluates  the  right  hand  side  of  the  equations  of 
motion.  These  values  are  the  ones  integrated  by  the 
integration  scheme.  Causes  external  forces  to  be 
calculated,  combined  with  inertial  properties  to  yield 
translational  and  angular  momentum  in  the  appropriate 
coordinate  systems  for  solution  using  Newton's  second 
law.  Called  from  RK4.  Calls  FORTIS. 

Prints  final  execution  and  response  value  statistics  - 
including  mean,  rms ,  maximum  and  minimum. 

Fourth-order  Runge-Kutta  integration  subroutine. 

Integrates  an  array  YYDOT  containing  rotational  and 
translational  velocities  and  accelerations  to  yield  array 
YY  which  contains  new  displacements  and  velocities. 
Called  from  MAIN.  Calls  DERIV. 

Subroutine  to  display  a  limited  amount  of  diagnostics  in 
the  event  of  a  runtime  error,  principally  due  to  data 
input  errors. 

Evaluates  two-dimensional  exponential  and  trigonometric 
integrals  over  each  station  of  the  ship.  Called  from 
AQUA2D. 

Performs  two-dimensional  linear  interpolation  in  the  table 
of  sectional  hydrodynamic  coefficients.  Coefficients  are 
selected  for  the  mean  design  draft,  and  at  encounter 
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frequencies  associated  with  each  wave  component  and  at 
"characteristic"  frequencies  of  ship  motion  initially 
assumed  to  be  the  modal  frequency  of  the  sea  spectrum  if 
irregular  waves  are  imposed. 

FX1F  Provides  an  index  (IT)  and  a  multiplier  (TX)  for  linear 

interpolation  for  draft  in  the  table  of  sectional 
hydrodynamic  coefficients. 

TXIT  Provides  an  index  (TX)  and  a  multiplier  (IT)  for  linear 

interpolation  for  frequency  in  the  table  of  section.' 
hydrodynamic  coefficients. 

FUNCTION  COX  Performs  the  two-way  linear  interpolation  in  the  table  of 

sectional  hydrodynamic  coefficients  using  IF,  FX,  IT,  TX 
obtained  through  FXIF  and  TXIT. 

FUNCTION  COXDXP  Same  as  COXDX  except  it  uses  sectional  hydrodynamic 

coefficients  that  have  not  been  divided  by  sectional  area, 
and  determines  the  x-spatial  derivative. 

FUNCTION  ETABAR  Provides  the  wave  elevation  in  fixed  coordinate  system 

above  a  given  point  of  the  ship's  centerline  along  hull, 
stern  and  transom. 

FUNCTION  ETAF  Provides  the  coordinate  of  the  water  surface  in  yawed  and 

pitched  coordinates  given  a  section  number,  distance  off 
the  centerline  and  relative  displacement  of  the  section. 

GETFREQ  Evaluates  the  average  of  the  two  most  recent  zero  crossing 

periods  and  calculates  characteristic  frequencies  of  ship 
motion  in  heave,  sway  and  roll.  Called  from  RK4. 

OUTCQF  Prints  the  temporary  sectional  hydrodynamic  coefficients 

currently  in  arrays  in  COMMON/COE FFX/.  Normally  done  only 
at  the  beginning  of  the  simulation.  Called  from  MAIN. 


FOL 101 


F0LI02 


FOL 103 


TBAR 


SPECTRA 


PRESSURE 


ZBLACN 


Displays  or  prints  a  summary  of  basic  input  data.  Called 
from  MAIN. 

Displays  or  prints  ship  motion  and  hull  girder  response. 
Called  from  MAIN. 

Displays  or  prints  ship  hull  pressure  reponse.  Called 
from  MAIN. 

Provides  the  average  depth  of  immersion  of  a  given 
section . 

Provides  the  amplitude  and  frequency  of  ten  wave 
components  derived  from  a  two  parameter  Bretschneider 
spectrum.  Called  from  SETUP. 

Provides  values  of  dynamic  pressure  at  the  center  of  each 
hull  panel  for  a  particular  instant  of  time.  Called  from 
MAIN.  Calls  ACPTR,  ZBLACN,  POTB  and  CFSR. 

In  the  pressure  computations,  applies  the  specified  body 
accelerations  for  the  six  degrees  of  freedom  to  compute 
the  resulting  normal  accelerations  at  the  panel  centers. 
The  free-surface  induced  normal  accelerations  ACNW(J)  are 
subtracted  to  obtain  the  net  normal  acceleration  at  each 
panel  center,  ACN(J),  of  the  body  relative  to  the  fluid. 
These  accelerations  must  be  cancelled  by  the  time 
derivative  of  the  body  source  density  distribution, 
ST(K).  The  ACN(J)  vector  is  multiplied  by  he  E  matrix  to 
get  the  necessary  net  rate  of  change  of  the  panel  source 
densities,  ST(K).  The  total  source  strength  densities  are 
accumulated  in  STOLD(K).  Called  by  PRESSURE. 
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ACPTR 

POTB 


CFSR 


AFSR 

HYDREX2 

The 

MAIN 


In  the  pressure  computations  computes  free-surface  induced 
accelerations  ACNW(J)  and  pressures  PRFS(T)  at  panel 
centers.  Called  by  PRESSURE. 

In  the  pressure  computations  this  subroutine  is  used  to 
compute  the  generalized  body-induced  pressure  BPRES 
generated  by  a  known  source  strength  distribution  and  its 
time  derivative.  The  matrix  P(J,K)  is  multiplied  by  a 
vector,  $T(K),  representing  the  time  derivative  of  source 
densities  of  the  panels.  Similarly  the  term  proportional 
to  forward  speed  is  computed  from  the  matrix  PX  and  a 
vector  representing  the  accumulated  source  densities, 
STOLD(K) .  Called  by  PRESSURE. 

In  the  pressure  computations  advances  free-surface  by  one 
time  increment.  Moves  body  relative  to  the  free 
surface.  Adds  the  changes  in  free-surface  elevation 
induced  by  the  body  sources  acting  over  the  time  increment 
to  the  free-surface  representation.  Second  order  effects 
in  time  are  included. 

In  the  pressure  computations  sets  up  and  initializes  the 
free-surface  representation  called  by  PREPARE. 


Subrouti  nes 


following  is  a  list  of  subroutines  in  HYDREX2. 

Accepts  data  file  names,  opens  the  appropriate  files, 
reads  input  data,  loops  over  six  drafts,  calling  FLOAT  and 
HYDRO  within  the  loops.  Also  calls  INDATA  to  read  in  data 
from  files. 
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FLOAT 


"Floats"  the  ship  at  the  specified  draft.  Creates  a  set 
of  "wet"  offsets  to  be  used  for  hydrostatic  calculations 
and  for  the  computation  of  sectional  hydrodynamic 
coefficients. 

HYDRO  Applies  the  Frank  Close-fit  method  to  "wet"  offsets. 

Adopted  from  CAPSIZE  which  adopted  it  with  some 
modifications  from  the  original  NSRDC  code.  HYDRO  calls 
GIRL,  BEER,  WINE  and  STATN. 

STATN  Revises  the  station  offsets  by  inserting  additional  points 

in  order  to  optimize  the  hydrodynamic  computations  and  to 
suppress  anomolous  behaviour  which  'sometimes  occurs  at 
certain  "singular  frequencies".  INSERT  is  called  by  STATN 
as  part  of  this  process. 

GIRL  Computes  certain  frequency-independent  coefficients  which 

are  used  in  the  two-dimensional  hydrodynamic  computations. 

BEER  Computes  the  two-dimensional  hydrodynamic  coefficients  for 

the  special  cases  of  zero  or  infinite  frequency.  It  calls 
the  simultaneous  linear  equation  solver  LINEQT. 

WINE  Performs  the  computation  of  the  two-dimensional 

hydrodynamic  coefficients  for  finite  nonzero  frequencies, 
calling  several  subroutines  for  special  operations.  WOMEN 
computes  some  of  the  interaction  between  segments  of  the 
section.  SONG  performs  the  integration  of  pressures 
around  the  section.  ROMEO  evaluates  the  exponential 
integral  with  complex  argument.  JULIET  is  a  simultaneous 
linear  equation  solver  for  certain  sets  of  equations  in 
HYDRO. 
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HYDREX3  Subroutines 


The  following  routines  are  contained  in  the  program  HYDREX3. 

MAIN  Reads  input  data  and  calls  subroutines  EBD  and  POTST. 

EBD  This  subroutine  reads  in  the  (x,y,z)  coordinates  of  each 

of  the  four  corner  points  into  a  set  of  arrays  XPT(N), 
YPT(N),  ZPT(N).  Panels  are  identified  by  a  set  of  four 
integers  giving  the  array  positions  of  the  four  corner 

points  of  each  panel.  Panel  areas,  normals  and  center 

point  coordinates  are  then  computed.  Finally,  the  E 
matrix  giving  the  source  time  derivative  distribution  for 
a  set  of  prescribed  normal  accelerations  is  computed.  The 
inverse  of  E  is  computed  first  by  the  subroutine  GE  which 
gives  the  acceleration  induced  at  any  panel  center  point. 
J,  by  a  uniformly  distributed  time  derivative  of  source 
strength  density  of  unit  magnitude  acting  over  any  surface 
of  panel,  JL.  Subroutine  MATIN  inverts  E  to  obtain  the 

desired  form.  Simultaneously,  the  matrix  PX  which  gives 
the  x  component  of  velocity  at  the  center  of  panel  J 
induced  by  a  source  strength  of  unit  magnitude  distributed 
over  a  panel,  JL,  is  computed. 

POTST  Calculates  the  matrix  P(N,J)  giving  the  net  force  or 

moment  for  the  Jth  degree  of  freedom  induced  by  a  unit 
time  derivative  of  source  strength  over  panel  N. 

Fundamental  to  this  is  the  need  to  compute  the  potential 
integrated  over  each  panel  area  due  to  a  uniform  source 
density  over  every  other  panel.  For  panels  which  are  far 
apart  relative  to  their  dimensions  this  value  is,  for  unit 
source  density,  simply  proportional  to  the  product  of 

their  areas  divided  by  the  distance  between  centers.  The 
method  used  here  is  to  divide  each  panel  into  a  large 
number  of  small  subpanels  and  then  calculate  the  results 
numerically,  adding  the  contributions  of  each  subpane1 
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under  the  assumption  that  their  separations  are  large 
relative  to  their  dimensions. 

SELF  This  subroutine  is  called  POTST  to  compute  diagonal  terms 

in  the  P  matrix. 

MATIN  The  matrix  inversion  routine  used  by  subroutine  EBD  to 

invert  matrix  E. 

GE  A  subroutine  called  by  EBD  to  compute  the  elements  of 

matrix  E  prior  to  inversion.  It  computes  the  velocity 
(acceleration)  at  field  point  (XF,  YF,  2F)  induced  by  a 
source  density  (time  rate  of  change  of  source  strength)  of 
value  unity  distributed  uniformly  over  panel  J. 

GO  A  subroutine  called  by  GE. 

SOLID  Also  called  by  subroutine  GE  to  compute  the  solid  angle  of 

a  panel  relative  to  the  field  point. 

PREP  Prepares  all  panels  for  the  GE  subroutine.  It  is  called 

by  EDB  prior  to  using  GE. 
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4. 


RUN  PROCEDURES 


This  section  presents  the  procedures  involved  with  running  HYDREX2, 
HYDREX3  and  SSX.  It  also  gives  input  data  description  and  formats. 

4.1  PROGRAM  HYDREX2 

HYDREX2  calculates  two-dimensional  sectional  added  mass  and  damping 
coefficients  using  the  Frank  Close-fit  method.  Two  data  files  are  required  - 
a  [BIF]  file  which  contains  basic  ship  and  program  run  information  and  the 
[OFF]  file  which  contains  the  ship's  offsets.  The  program  will  create  a  third 
file  [COF]  into  which  it  will  write  the  results  of  its  calculations. 

When  HYDREX2  is  run,  the  only  required  input  is  the  following  three  files 
names : 


File  Name 

Format 

Basic  Input  File 

(A)* 

Ship  Offset  File 

(A) 

2-D  Coefficient  File 

(A) 

Descriptions  of  the  [BIF]  and  [OFF]  file  are  given  in  the  next  two 

sections. 

Basic  Information  File  [BIF] 

The  basic  information  file  is  used  for  programs  HYDREX3  and  SSX  as  well 
as  HYDREX2.  The  full  [BIF]  file  will  contain  more  information  than  that  which 
is  described  below.  However,  to  run  HYDREX2,  only  the  first  part  of  the  [BIF] 
file  need  be  created.  The  remainder  can  be  created  at  some  other  time  prior 
to  running  SSX.  Table  1  below  summarizes  the  input  data  variables  and  the 
associated  format. 


ormat  is  alphanumeric  string  variable 
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TABLE  1 


BASIC  INFORMATION  FILE  (PARTIAL) 


Data  Set 

No. 

Variables 

Line 

Format 

1 

TITLE 

(A) 

2 

TF,  TA 

6F10.0 

3 

XCG,  YCG 

6F10.0 

4 

(DRAFT  (I),  1-1,6) 

6F10.0 

5 

(0M(  I) ,  1=1,12) 

6F10.0 

6 

YMAX,  ZMAX ,  WMAX ,  NWL 

3F10.0,  115 

7 

NFWD 

15 

8 

(YFWD(I),  XFWD(I),  1=1, NFWD) 

2F10.0 

9 

NAFT 

15 

10 

• 

• 

(YAFT(I),  XAFT(I),  1=1, NAFT) 

2F10.0 

A  description  of  the  variables  contained  in  Table  1  is  provided  below: 


TITLE 

XCG 

YCG 


Any  user-specified  alphanumeric  string  up  to  81  characters  in 
length.  This  is  displayed  at  the  beginning  of  certain  pages  of 
output. 

Distance  aft  of  the  forward  perpendicular  of  the  ship's  center  of 
gravity  (ft). 

Height  above  baseline  of  ship's  center  of  gravity  (ft) 


TF.TA  -  Ships  forward  and  after  draft  at  FP  and  AP. 

DRAFT(I)  -  An  array  of  six  drafts  at  which  hydrodynamic  coefficients  are 

calculated.  The  specified  drafts  should  cover  a  range  beginning 

at  approximately  the  height  above  the  baseline  of  the  top  of  the 

turn  of  the  bilge  and  ending  at  the  minimum  hull  depth.  One  of 
the  drafts  should  be  near  the  mean  design  draft  for  the 
displacement  under  consideration. 

0M(  I)  -  An  array  of  twelve  frequencies  at  which  hydrodynamic  coefficients 
are  calculated. 


4-2 


YMAX , 
ZMAX 

WMAX 

NWL 

NFWD 

YFWD(I) 

XFWD(I) 

NAFT 

YAFT(I) 

XAFT(I) 


Specifies  the  maximum  desired  vertical  (YMAX)  and  horizontal 
separation  between  adjacent  offset  points  for  calculation  of  two- 
dimensional  hydrodynamic  coefficients.  If  both  YMAX  and  ZMAX  are 
positive  values,  interpolated  offset  points  (straight  line)  will 

be  added  before  computing  coefficients  using  the  method  developed 
by  W.  Frank  (1967). 


-  A  "deck"  on  the  interior  waterline  has  been  added  to  the  geometry 
of  each  station  which  is  surface  piercing  to  avoid  "irregular" 
frequencies.  The  default  is  to  use  only  one  segment  for  this, 
but  a  positive  WMAX  will  allow  multiple  segments  each  with  a 
maximum  length  of  WMAX. 


-  Specifies  the  number  of  interior  waterline  segments  to  be  used  to 
avoid  "irregular"  frequencies.  The  default  is  to  use  one 

segment,  and  this  is  selected  if  NWL  is  zero.  A  negative  value 
(not  recommended)  will  suppress  the  modification  to  Frank's 
procedure  which  eliminates  irregular  frequencies. 


-  Number  of  forward  profile  points.  This  is  restricted  to 
0  <  NFWD  <  25  .  These  points  are  numbered  by  the  control 
variable  I  in  a  counterclockwise  direction  when  viewed  from  the 
starboard  side. 


-  Height  of  point  I  of  the  forward  profile  measured  forward  of  the 
first  station.* 


Distance  of  point  I  of  the  forward  profile  measured  forward  of 
the  first  station.  If  NWFD=1,  XFWD(l)  is  defined  to  be  the 
forward  most  point  of  the  submerged  hull. 


-  Number  of  after  profile  points.  This  is  restricted  to 
0  <  NAFT  <  25.  These  points  are  numbered  by  the  control 
variable  I  in  a  clockwise  direction  when  viewed  from  the 
starboard  side. 


-  Height  of  point  I  of  the  after  profile. 


-  Distance  of  point 
(MSTA)  station, 
most  point  of  the 


I  of  the  after  profile  measured  aft  of  the  last 
If  NAFT=1,  XAFT(l)  is  defined  to  be  the  after 
submerged  hull. 
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The  offset  file  [OFF]  contains  the  ship's  offsets  in  the  SHOP*  format. 
An  actual  SHOP  data  can  be  used  for  the  [OFF]  file.  HYDREX2  will  read  only 
what  it  needs.  Table  2  below  summarizes  the  input  data  variables  and 
associated  formats. 


TABLE  2 


SHIP  OFFSET  FILE 

Data  Set 

Number 

Variables 

Line 

Format 

1 

SHOP  Card  A  0£  (blank) 

(A) 

2 

SHCP  Card  B  _or_  (blank) 

(A) 

3 

SHCP  Card  C  or_  space 

F10.3,  (A) 

4 

SHCP  Card  D  -  STATN,  Y1 

F6.3 , 

Zl,  JTEST 

2F7.0.I6 

A  description  of  the  variables  contained  in  Table  2  is  provided  below. 


SHCP 

CARD 

A  - 

This  can  be  left  blank,  or  if  it  is  an  actual  SHCP  data 
file,  leave  it  intact. 

SHCP 

CARD 

B  - 

Blank  or  actual  SHCP  Card  B 

SHCP  CARD 
or  SPACE 

C  - 

This  can  be  the  actual  SHCP  Card  C  or  simply  one  variable 
SPACE,  where  SPACE  is  the  station  spacing.  It  is  actually  a 
multiplier  of  the  x-values  of  the  stations  given  in  the  next 
card  set. 

STATN 

- 

The  real  distance  from  the  station  to  the  F.P.  is  the 
product  of  STATN  and  SPACE.  The  STATN  values  must  be  the 
same  for  all  offsets  on  the  same  station. 

*  Ship  Hull  Characteristic  file  (U.S.  Navy) 
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Y1  -  The  half  breadth  of  the  offset  point.  The  offsets  for  each 

station  should  be  ordered  from  the  bottom  toward  the 
uppermost  parts  of  the  station. 

Z1  -  The  height  of  the  offset  point. 

JTEST  -  The  "breakpoint"  indicator  77777  is  ignored.  The  last 

offset  on  each  station  is  signified  by  JTEST  =  88888.  The 
last  offset  on  the  last  station  is  signified  by  JTEST  = 
99999.  JTEST  values  other  than  zero  (or  blank)  77777,  88888 
or  99999  are  ill egal . 

For  HYDREX2 ,  the  maximum  number  of  offset  points  per  station  is  25. 
However,  for  SSX,  the  maximum  number  of  offset  points  is  12.  It  is 
recommended  that  as  many  offset  point  (up  to  25)  as  possible  are  used  for 
HYDREX2  to  increase  the  accuracy  of  the  close-fit  calculations.  However, 
prior  to  running  SSX,  the  [OFF]  file  must  be  edited  to  delete  extra  offset 
points  in  order  to  reduce  the  total  number  per  station  down  to  12.  The  number 
of  stations  must  be  limited  to  25. 

An  example  of  the  actual  input  and  output  of  HYDREX2  will  be  provided  in 
Section  5  with  a  sample  case  illustration. 

4.2  PROGRAM  HYDREX3 

HYDREX3  calculates  coordinates  of  hull  surface  panel  center,  areas  and 
normal  vectors  of  panels,  body  source  density  influence  matrix  [E],  a  body 
panel  pressure  influence  matrix  [PP],  and  a  forward  velocity  source  density 
influence  matrix  [PX]. 

When  HYDREX3  is  run,  the  only  required  input  is  the  following  two  file 
names : 


File  Name  Format 

Panel  Description  File  [PAN]  (A) 

Matrix  and  Geometry  File  [MAT]  (A) 
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Table  3  summarizes  the  input  variables  and  formats  for  the  data  for  the 
panel  description  file  [PAN]. 


TABLE  3 


PANEL  DESCRIPTION  FILE 

Data  Set 

Variables 

Format 

1 

NPT,  NPAN 

415 

2 

XPT(N),  YPT(N) ,  ZPT(N) 

N=1 ,  NPT 

3F10.0 

3 

KK(M.l),  KK(M,2) ,  KK ( M3 , ) 
KK(M,4),  M=1 ,  NPAN 

415 

The  variables  and  their  use  are  further  described  below. 


NPT  -  Number  of  nodal  points  used  to  specify  coordinates  of  panel 

corners.  Not  to  exceed  150. 


NPAN  -  Number  of  quadrilateral  or  triangular  panels.  Not  to  exceed  120. 


XPT(N) 

ypt(n) 

ZPT(N) 


The  coordinates  of  the  nodal  points  used  as  corner  points  for  the 
panels.  The  coordinate  system  used  here  has  Z  positive 
downwards,  X  positive  forward  and  Y  positive  starboard.  The 
origin  is  at  midships  at  the  mean  design  water  line. 


KK(M,l)  -  These  are  four  integers  which  identify  which  nodal  points  are 
used  to  define  the  corners  of  the  panels.  The  convention  for  the 
sequencing  of  the  aft  panel  corners  is  to  go  around  the  panel 
clockwise  when  viewed  from  outside  of  the  ship  hull  along  the 
panel  normal. 
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4.3  PROGRAM  SSX 


Program  SSX  performs  a  time  domain  simulation  of  ship  motions, 
calculating  hull  girder  loads  and  distributed  pressures  (optional).  A 
prerequisite  of  executing  SSX  is  to  have  run  HYDREX2  and  HYDREX3  in  order  to 
perform  some  "preprocessing" .  SSX  requires  four  data  files. 

(1)  Basic  Information  Data  File  [BIF] 

(2)  Ship  Offset  Data  File  [OFF] 

(3)  2-D  Hydrodynamic  Coefficient  Data  File  [COF] 

(4)  3-D  Geometry/Matrix  File  [MAT] 

The  program  initially  asks  for  the  names  of  these  four  files  in  the  above 
order.  It  then  reads  the  data.  If  the  [MAT]  file  name  is  'NONE1,  then  no 
pressure  computations  will  be  performed,  and  data  sets  21  and  22  in  the  [BIF] 
file  are  skipped.  The  first  eight  data  groups  in  the  [BIF]  file  were  given  in 
Table  1.  The  variable  and  format  list  for  the  remainder  of  the  [BIF]  file  is 
given  in  Table  4. 
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TABLE  4 


BASIC  INFORMATION  FILE  (PARTIAL) 

Data  Set 

Variables 

Format 

9 

DISPL 

8F10.0 

10 

(RADI  1(1),  1=1,6) 

... 

8F10.0 

11 

SPEED 

8F10.0 

12 

(DAMPL(I),  1=1,6) 

8F10.0 

13 

(DAMPQ(I),  1=1,6) 

8F1D.0 

14 

IXWAVE 

IXWAVE  =  1  *  Include  Set  14A 

IXWAVE  4  1  *  Include  Set  14B 

12 

14A-1 

NWAVES 

4F10.0 

14A-2 

WVAMP(N),  WVFRE(N) ,  WVDIR(N), 
WVPHA(N),  N=1 ,  NWAVES 

4F10.0 

14B-1 

H13 ,  PKFRE ,  HEAD 

8F10.0 

15 

(POSIT(I),  1=1,6 ) 

8F10.0 

16 

(VELOC(I),  1=1,6) 

8F10.0 

17 

TSTART,  TSTOP ,  TOUTPT,  TSTEP 

8F10.0 

18A 

(JOBFO(IO), 1-1,10) 

1011 

18B 

( J  OBP  0(10) ,1  =  1,10) 

1011 
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TABLE  4  (Cont.) 


BASIC  INFORMATION  FILE  (PARTIAL) 

Data  Set 

Vari abl es 

Fo  rmat 

18C 

JOBCO 

11 

19 

NWTSTA 

12 

20 

SEGWT(I),  SEGMOX(I),  YBAR(I) 

1=1,  NWTSTA 

3F10.0 

21 

TPSTART,  TPSTOP,  TPRAMP 

8F10.0 

22 

BGX,  SMX,  BGY,  SMY,  TSCALE 

8F10.0 

-9 


The  variables  and  their  use  are  further  described  below. 


DISPL 


Ship  displacement  (long  tons).  It  is  best  to  enter  the 
displacement  calculated  in  HYDREX2  for  the  design  draft  and 
printed  in  the  hydrostatic  section  of  the  HYDREX2  printout. 


RADI  1(1) 


Radius  of  gyration  for  roll,  p  . 


RADII (2) 


Radius  of  gyration  for  yaw,  p  , 

y  y 


RADI  1(3) 


Radius  of  gyration  for  pitch,  p 


RADI  I (4) 


RAD  II  (5) 

RADI  1(6) 

SPEED 

DAMPL(l) 

DAMPL(2) 

DAMPL(3) 

DAMPL(4) 

DAMPl( 5) 

DAMPL(6) 

DAMPQ(l) 

DAMPQ(2) 

DAMPQ( 3) 

DAMPQ(4) 

DAMPQ(5) 

DAMPQ(6) 


Radius  of  gyration,  p  .  The  products  of  inertia  are 
computed  as: 

*xy  *yx  Pxy  lp  xy  (  * m 
where  m  is  the  mass  of  the  ship 

Radius  of  gyration,  p 

xz 

Radius  of  gyration,  p 

Intended  speed  of  the  ship  (feet/sec) 

Linear  surge  damping 
Linear  heave  damping 
Linear  sway  damping 
Linear  roll  damping 
Linear  yaw  damping 
Linear  pitch  damping 
Quadratic  surge  damping 
Quadratic  heave  damping 
Quadratic  sway  damping 
Quadratic  roll  damping 
Quadratic  yaw  damping 
Quadratic  pitch  damping 


IXWAVE 


NWAVES 

WVAMP(I) 

WVFRE(I) 

WVPHA(I) 

H13 

PKFRE 

POSIT(l) 

P0SIT(2) 

P0SIT(3) 

P0SIT(4) 

P0SIT(5) 

P0SIT(6) 

VELOC(l) 

VEL0C(2) 


Flag  to  indicate  how  the  user  wants  to  specify  the  wave 
system.  I XWAVE= 1  means  the  user  will  specify  the  amplitude, 
frequency,  direction  and  phase  angle  of  NWAVE  wave 
components.  IXWAVE  *  1  means  the  user  will  specify  the 
significant  height  and  modal  frequency  to  be  used  for  a  two- 
parameter  (Bretschneider)  unidirectional  sea  spectral 
formulation  from  which  10  wave  components  will  be  calculated 

with  random  phse  angles. 


-  Number  of  sinusoidal  waves.  This  is  restricted  to 
0  <  NWAVES  <  20. 


-  Amplitude  of  wave  component  I  (ft) 

-  Circular  frequency  of  wave  component  I 

-  Phase  angle  in  degrees  at  time  equal  zero  of  wave  component 

-  Significant  wave  height  in  feet  to  be  used  in  two-parameter 
Bretschneider  unidirectional  sea  spectral  formulation 

-  Modal  frequency  in  cycles/sec  for  Bretschneider  formulation 


Initial 

Initial 

Initial 

Initial 

-  Initial 
Initial 

Initial 

-  Initial 


X-coordinate  of  mass  center 

Y-coordinate  of  mass  center 

Z-coordinate  of  mass  center 
roll  angle  in  degrees 
yaw  angle  in  degrees 
pitch  angle  in  degrees 
speed  (ft. /sec.) 
heave  velocity 
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VE  LOC ( 3 ) 

- 

Initial  sway  velocity 

VEL0C(4) 

- 

Initial  roll  rate 

VELOC ( 5 ) 

- 

Initial  yaw  rate 

VEL0C(6) 

- 

Initial  pitch  rate 

The 

position  values  are  specified  with  respect  to 

the  wave 

coordinate 

system  fixed  on 

the  earth.  The  velocities  are  with 

respect  to  the  ship 

coordinate  system.  Positions  are  in  feet:  velocities  in 

feet/sec. 

TSTART 

Time  at  which  the  actual  simulation  is  to  start.  All  forces 
are  multiplied  by  a  ramp  funtion  that  increases  linearly  in 
time  from  a  value  of  zero  at  t=0  to  one  at  TSTART.  This 

ramp  is  used  to  avoid  transients  caused  by  arbitrary  initial 
conditions. 

TSTOP 

- 

Time  at  which  the  simulation  is  to  end 

TOUTPT 

- 

Interval  at  which  the  ship  position  and  velocity 
output. 

are  to  be 

TSTEP 

Integration  time  step 

JOBCO  -  Option  for  selection  of  different  techniques  used  to  select 

the  sectional  hydrodynamic  coefficients.  The  sectional 
coefficients  may  be  calculated  for  any  combination  of  fixed 
or  varying  draft  and  frequency  dependence,  according  to  the 
following  table: 


JOBCO 

Frequency 

Draft 

1 

Fix 

Fix 

2 

FI  oat 

Fix 

3 

Fix 

FI  oat 

4 

Float 

Float 

The  selection  of  fixed  draft  means  the  mean  still  waterline 
draft  is  always  used  for  coefficient  selection.  Fixed 

frequency  means  the  encounter  frequency  associated  with  the 
peak  of  the  sea  spectrum  (for  irregular  waves)  or  the 
frequency  of  encounter  for  a  regular  wave  is  always  used. 
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JOBFO(IO) 

JOBPO(IO) 

NWTSTA 

SEGWT(I) 

SEGMOX(I) 

YBAR(I) 

TP  ZERO 

TPS TART 

TPSTOP 

BGX 

SMX 


Floating  frequency  means  the  computed  "characteristic" 
frequencies  of  motion  as  the  simulation  progresses  are 
used.  Floating  draft  means  the  actual  instantaneous  mean 
sectional  draft  is  used  at  each  time  step. 


-  Option  array  for  which  terms  to  include  in  the  calculation  of 
hydrodynamic  forces.  In  the  present  version  only  JOBFO( 2) 
and  J0BF0(3)  are  used.  If  J0BF0( 2 ) =1  then  forward  speed 
terms  are  included.  If  JOBFO( 3 ) =1  then  flare  force  is 
included.  If  J0BF0(4)=1,  pressures  in  the  wave  above  still 
water  are  assumed  to  be  hydrostatic. 


-  Printout  option  array.  Only  JOBFO(l)  is  used  in  present 
version.  A  value  of  1  for  JOBPO(l)  will  cause  the  initially 
selected  values  for  hydrodynamic  coefficients  to  be  printed. 


-  Number  of  weight  stations.  In  present  version  of  SSX,  NWTSTA 
must  equal  number  of  hydrodynamic  stations  or  strips. 


Weight  of  weight  station  I  (long-tons) 
Sectional  roll  gyradius  (ft) 


-  nistance  from  section  c.g.  and  waterline,  positive  up. 

-  Time  at  which  to  begin  3-D  hull  pressure  computations 


-  Time  at  which  3-D  hull  pressure  evaluation  actually  begins. 
Between  time  TPZERO  and  TPSTART,  the  exciting  normal 
accelerations  are  multiplied  by  a  ramp  function  that 
increases  linearly  in  time  from  a  value  of  zero  at  t  =  TPZERO 
to  a  value  of  one  at  t  =  TPSTART 


-  Time  at  which  3-D  hull  pressure  evaluation  ends 


-  Maximum  longitudinal  length  scale.  Corresponds  to  lx  in  eq. 
(72)  of  Volume  I.  Try  2.5  ppp 


Mi  nimum 
(73)  of 


longitudinal  length  scale  corresponds 
Volume  I.  Try  station  spacing  of  ship 


to 


1  in  eq . 
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8GY 


-  Maximum  transverse  length  scale.  Corresponds  to  L  in  eq. 
(72)  of  Volume  I .  Try  SR  y 


SMY  -  Minimum  transverse  length  scale.  Corresponse  to  1u  in  eq. 

(73)  in  Volume  I.  Try  0.1B  “ 


TSCALE  -  Maximum  time  scale.  Trade  off  between  accuracy  and 

computational  effort.  Try  n.fi  (TPSTOP-TPZF.RO) 


An  example  of  actual  input  and  output  is  shown  in  the  next  section  with  a 
sample  run. 
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SAMPLE  CASE 


This  example  is  for  the  SL-7  containership.  An  example  of  the  [BIF], 
[OFF]  and  [PAN]  data  files  are  given.  The  [BIF]  file  is  in  free  format.  An 
example  of  the  output  for  HYDREX2,  HYDREX3  and  SSX  is  given. 

The  sample  case  shows  the  full  load  SL-7  containership  at  25  knots  in 
head  seas  in  a  one-foot  regular  wave  of  m  0.34.  The  basic  information 
file  [BIF]  is  shwon  in  Figure  5.  The  offset  [OFF]  file  is  provided  as  Figure 
6  and  the  panel  file  [PAN]  is  given  as  Figure  7.  An  example  of  the  output  of 
HYDREX2  is  shown  in  Figure  R.  An  example  of  output  of  HYDREX3  is  given  in 
Figure  9.  An  example  of  output  of  SSX  is  given  in  Figure  10.  Pressure  data 
output  is  shown  in  Figure  11. 
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SL7  CQNTAINERSHIP 
32  8,  32.  8 
-478  05/  42.  3005 
5  ,  10.  -  20.  .  32.  8,  40.  ,  50. 
0  ,  0.  ,  60.  ,  2 
9 

0.  -  0. 

1.  5,  9.  6 
8  25,  16.  88 
18.  0,  7.  04 
30.  ,  0. 

42.  ,  1.  92 
56  ,  7.  92 
72.  ,  17.  12 
81.  75,  23.  44 
6 

0.  ,  -71.  12 
6.  0,  -67.  68 
10.  75,  -19.  44 
25.  0,  -19.  44 
33.  0,  12.  24 
64.  83,  17.  92 
47760. 

47.  ,  219.  ,  219.  ,  0.  ,  0.  ,  0. 
16.  89 

0.  ,  o. #  0.  ,  0.  ,  0.  #  o. 

O.  ,  0.  ,  0.  ,  0.  i  0.  ,  0. 

1 

1 

1.  ,  2,  180.  ,  0. 

O.  ,  9.  41 18,  O.  ,  0.  ,  0. 

16.  89,  O.  <  0.  ,  0.  ,  0.  ,  0. 

30.  .  100.  ,  .  5,  .  5 
25 

094.  5500,  37.  31,  9.  5145 
294.  5500,  37.  31. 9.  5145 
296  2025,  37.  31,  9.  5145 
496  2025,  37.  31,  9.  5145 
1143.  8223,  37.  31,  9.  5145 
1134.  9353,  37.  31, 9.  5145 
1681  7071,  37.  31,  9.  5145 
2040.  0422,  37.  31,  9.  5145 
2508.  4206.  37.  31,  9.  5145 
2578  811  1,  37.  31,  9.  5145 
3053  3377,  37.  31,  9.  5145 
3591. 3250,  37.  31, 9.  5145 
3530.  8231,  37.  31, 9.  5145 
3175.  7759,  37.  31. 9.  5145 
3725.  5737,  37.  31,  9.  5145 
3530.  6277,  37.  31,  9.  5145 
2595.  3904,  37.  31,  9.  5145 
3151.  4265,  37.  31,  9.  5145 
2534.  0626,  37.  31,  9.  5145 
1915.  6687,  37.  31, 9.  5145 
1761. 7387,  37.  31, 9.  5145 
715.  4792,  37.  31,  9.  5145 
715  4792,  37.  31,  9.  5145 
747.  0264,  37.  31,  9.  5145 
747  0264,  37.  31,  9.  5145 
0.  ,  0.  ,  0.  ,  0. 

0.  ,  0.  ,  0.  ,  0. 


Figure  5.  Basic  Information  File 
[BIF] 


SL7  CONTAINER SHIP 


44  0250,  0,0  ,  0.  ,  0,  0 
00  00000. 000000. 0000 
00  00004.480101.6404 
00  00007.  OBI  508.  2021 
00  00003. 815316.  4042 
00  00000  289026. 2467 
00  00001.011639.3701 
00  00004.  277852.  4934 
00  00008  237765. 124788888 


00  50000. 000000. 0000 
00  50003. 324000.  8202 
00.  50006. 358903  2808 
00.  50006  301113.  1234 
00.  50003.  324019.  6850 
00  50001. 300729.  5276 
00.  50002.  861539.  3701 
00.  50007.  717452.  4934 
00.  50013. 353764. 993488888 
01  00000.  000000. 0000 
01.  00005.  202701.  6404 
01.  00007.  659604.  9213 
01.  00008.  237708.  2021 
01  00007. 804111.  4829 
01.  00005.  838616.  4042 
01.  00003.  179522.  9659 
01.  00005.  058239.  3701 
01.  00018.  007364.  960688888 
01.  50000.  000000.  0000 
01.  50004.  191100.  8202 
01.  50007.  399503.  2808 
01.  50008.  671206.  5617 
01. 50008  815809. 8425 
01.  50008.  093213.  1234 
01.  50005.  347319.  6850 
01.  50004.  133326.  2467 
01.  50007.  601839.  3701 
01.  50011.  908552.  4934 
01.  50022.  545264.  895088888 
02.  00000.  000000.  0000 
02.  00004.  624700.  8202 
02.  00008.  035303.  2808 
02  00009. 480506. 5617 
02.  00009.  682909.  8425 
02.  00008.  960313.  1234 
02.  00006.  937019.  6850 
02.  00006.  214426.  2467 
02.  00008.  006432.  8084 
02.  00014.  452145.  9318 
02  00023. 065559. 0551 
02  00027. 112164. 796688888 
03. 00000. 000000  0000 
03.  00002.  890400.  0656 
03.  00007.  226001.  6404 
03.  00010.  058604.  9213 
03.  00010.  752308.  2021 
03.  00011.  330411.  4829 
03. 0001 1 . 128116. 4042 
03.  00011.  330422.  9659 
03.  00013.  151429.  5276 
03.  00018.  094039.  3701 
03.  00026.  302752.  4934 
03.  00034.  974064.  632588888 
04.  00000.  000000.  0000 
04.  00004.  335600.  1312 
04.  00008.  757901.  6404 
04.  00011. 908504.  9213 
04.  00013.  584908.  2021 
04. 00014. 741111. 4829 
04.  00016.  330816.  4042 
04.  00018.  354122.  9659 
04.  00021.  042229.  5276 
04  00025.  782539.  3701 
04  00033.  528852. 4934 


05.  00040.  118952.  4934 
05.  00046.  969264.  370188888 
06.  00000.  000000.  0000 
06.  00007.  226000.  2625 
06.  00014.  741101.  6404 
06.  00020.  666404.  9213 
06.  00024.  279508.  2021 
06.  00030.  002516.  4042 
06.  00033.  297522.  9659 
06.  00036.  187929.  5276 
06.  00040.  176739.  3701 
06.  00045.  379552.  4934 
06. 00050. 351064. 337388888 
07.  00000.  000000.  0000 
07.  0001 1 .  561600.  3281 
07.  00020.  232901.  6404 
07.  00027.  025304.  9213 
07.  00031. 216408.  2021 
07.  00034.  106811.  4829 
07.  00037.  488616.  4042 
07.  00040.  407922.  9659 
07.  00042.  720329.  5276 
07.  00045.  697439.  3701 
07.  00049.  223752.  4934 
07.  00052  027464.  304588888 
OB.  00000.  000000.  0000 
08.  00019.  365800.  3937 
08.  00027.  314401.  6404 
08  00033. 962304. 9213 
08.  00038.  297908.  2021 
08.  00041.  043811.  4829 
08.  00043  934216.  4042 
08.  00046.  246622.  9659 
08.  00047.  836329.  5276 
08.  00049.  715139.  3701 
08.  00051.  564952.  4934 
08.  00052.  547764.  304588888 
09.  00000.  000000.  0000 
09.  00026.  302700.  5906 
09.  00033.  962301.  6404 
09.  00040.  610304.  9213 
09.  00044.  310008.  2021 
09.  00046.  477811.  4829 
09.  00048.  703416.  4042 
09.  00050.  351022.  9659 
09.  00051.  304829.  5276 
09.  00052.  027439.  3701 
09.  00052.  605552.  4934 
09.  00052.  750064.  304588888 
10.  00000.  000000.  0000 
10.  00032.  661600.  6562 
10.  00039.  309601.  6404 
10.  00045.  379504.  9213 
10.  00048.  558908.  2021 
10.  00050.  293211.  4829 
10.  00051. 911816.  4042 
10.  00052.  605522.  9659 
10.  00052.  721129.  5276 

10.  00052.  750064.  304588888 

11.  00032.  751400.  6562 
1 1 . 00035.  649700.  8202 
11. 00044.  634603.  2808 
11.  00048.  692306.  5617 


04.  00041.  9 1 1 0< 
05  00000.  000^ 
05.  00004.  335 
05.  00010.  839- 
OS.  00015.  319 
05.  00018.  1511.. 


911064.534188888  . 

000r 

335_  Figure  6.  Offset  File  [OFF] 
3?a"’  Partial  Listing 


05.  00018.  1  51t-ww.  _ _ 

05.  00020.  232911.  4829 
05  00023. 036616. 4042 
05.  00026.  013722.  9659 
05.  00028.  904129.  5276 


“tOJH 

>98968.  897688888 
■J  '00026.  2467 

"•57826.  2467 
'90732.  8084  - 
=.v.  uuuc-r  J46245.  9318 
20.  00032.  084854.  6260 
20.  00032.  084868.  897699999 


20.  00032. 


120, 112 

450.  00 
450.  00 
450.  00 
450.  00 
450.  00 
450.  00 
360.  00 
360.  00 
360.  00 
360.  00 
360.  00 
360  00 
360.  00 
360.  00 
450.  00 
290  00 
290.  00 
290.  00 
290.  00 
290.  00 
290.  00 
225.  00 
225.  00 
225.  00 
225.  00 
225  00 
225.  00 
135.  00 
135.  00 
135.  00 
135.  00 
135.  00 
0.  00 
0.  00 
0.  00 
0.  00 
0.  00 
0.  00 
-90.  00 
-90  00 
-90.  00 
-90  00 
-90.  00 
-90.  00 
-180.  00 
-180.  00 
-180.  00 
-180  00 
-180.  00 
-270.  00 
-270.  00 
-270.  00 
-360.  00 
-360.  00 
-360  00 
-427.  50 
-427.  50 
-427.  50 
-427.  50 
-450.  00 
450.  00 
450.  00 
450  00 
450.  00 
450.  00 
450.  00 
360.  00 
360  00 
360.  00 
360.  00 
360.  00 
360.  00 
360  00 
360.  00 
450.  00 
290.  00 
290.  00 
290  00 
290  00 
290.  00 
290.  00 
225.  00 
225.  00 
2? 5  OO 


0.  00 

30.  00 

7.  04 

24.  00 

6.  00 

18.  00 

3.  20 

12.  00 

0.  88 

6.  00 

0.  00 

0.  00 

0.  00 

30.  00 

1.  76 

30.  00 

7.  60 

27.  00 

9.  20 

24.  00 

9.  28 

18.  00 

7.  52 

12.  00 

6.  40 

6.  00 

7.  20 

7.  20 

3.  50 

27.  00 

0.  00 

30.  00 

3.  44 

30.  00 

9.  69 

27.  00 

11.  76 

24.  00 

14.  48 

12.  00 

18.  32 

0.  00 

0.  00 

30.  00 

5.  04 

30.  00 

13  52 

27.  00 

16.  88 

24.  00 

24.  48 

12.  00 

30.  01 

0.  00 

0.  00 

30.  00 

13.  12 

29.  75 

29.  92 

24.  00 

38.  50 

12.  00 

43.  14 

0.  00 

0.  00 

30.  00 

26.  40 

29.  50 

43.  36 

27.  00 

47.  20 

24.  00 

52.  24 

12.  00 

52.  38 

0.  00 

0.  00 

30.  00 

26.  40 

29.  50 

41.  44 

27.  00 

51.  56 

24.  00 

52.  80 

12.  00 

52.  80 

0.  00 

0.  00 

30.  00 

28.  00 

27.  00 

43.  68 

24.  00 

48.  32 

12.  00 

52.  16 

0.  00 

0.  00 

30.  00 

35.  60 

12.  00 

43.  28 

0.  00 

0.  00 

30.  00 

14.  00 

12.  00 

25.  54 

0.  00 

0.  00 

29.  50 

1.  50 

29.  50 

2.  72 

3.  50 

6.  91 

0.  00 

0.  00 

0.  00 

0.  00 

30.  00 

-7.  04 

24.  00 

-6.  00 

18.  00 

-3.  20 

12.  00 

-0.  88 

6.  00 

0.  00 

0.  00 

0.  00 

30.  00 

-1.  76 

30.  00 

-7.  60 

27.  00 

-9.  20 

24.  00 

-9.  28 

18.  00 

-7.  52 

12.  00 

-6.  40 

6.  00 

-7.  20 

7.  20 

-3.  50 

27.  00 

0.  00 

30.  00 

225.  00 
225.  00 
135.  00 
135.  00 
135.  00 
135.  00 
135.  00 
J.  00 
0.  00 
0.  00 
0.  00 
0.  00 
0.  00 
-90.  00 
-90.  00 
-90.  00 
-90.  00 
-90.  00 
-90.  00 
-180.  00 
-180.  00 
-180.  00 
-180.  00 
-180.  00 
-270.  00 
-270.  00 
-270.  00 
-360.  00 
-360.  00 
-360.  00 
-427.  50 
-427.  50 
-427.  50 
-427.  50 
-450.  00 


1 

15 
2 

3 

4 

5 

7 

8 
9 

10 

11 

12 

16 

17 

18 

19 

20 
22 

23 

24 

24 

25 

26 
28 
29 

29 

30 

30 

31 

33 

34 

35 


116 
1  14 
118 

115 

116 

Description  File 


-24.  48 

12.  00 

-30.  01 

0.  00 

0.  00 

30.  00 

-13.  12 

29.  75 

-29.  92 

24.  00 

-38.  50 

12.  00 

-43.  14 

0.  00 

0.  00 

30.  00 

-26.  40 

29.  50 

-43  36 

27.  00 

-47.  20 

24.  00 

-52.  24 

12.  00 

-52.  38 

0.  00 

0.  00 

30.  00 

-26.  40 

29.  50 

-41.  44 

27.  00 

-51.  56 

24.  00 

-52.  80 

12.  00 

-52.  80 

0.  00 

0.  00 

30.  00 

-28.  00 

27.  00 

-43.  68 

24.  00 

-48.  32 

12.  00 

-52.  16 

0.  00 

0.  00 

30.  00 

-35.  60 

12.  00 

-43.  28 

0.  00 

0.  00 

30.  00 

-14.  00 

12.  00 

-25.  54 

0.  00 

0.  00 

29.  50 

-1.  50 

29.  50 

-2  72 

3  50 

-6.  91 

0.  00 

0.  00 

0.  00 

7  8 

0 

8  9 

15 

9  10 

2 

10  11 

3 

11  12 

4 

12  13 

5 

13  14 

6 

16  17 

8 

17  18 

9 

18  19 

10 

19  1 1 

0 

19  20 

12 

20  21 

14 

22  23 

17 

23  24 

18 

24  25 

19 

25  26 

20 

26  27 

21 

28  29 

23 

25  24 

0 

29  30 

0 

30  25 

0 

30  31 

26 

31  32 

27 

33  34 

29 

34  35 

0 

35  30 

0 

35  36 

0 

36  37 

31 

37  38 

32 

39  40 

34 

40  41 

35 

41  36 

0 

i  1  *T  4  11 

115  111 

0 

117  113 

0 

117  114 

0 

118  114 

0 

US  115 

0 

118  116 

0 

120  118 

0 

-3.  44  30.  00 

Figure  7.  Panel 

[PAN]  Partial  Listing 

-5.  04  30.  66 

-135?  27.00 


7  CQNTAINERSHIP  ADDED  MASS/DAMPING  COEFFICIENTS  PROGRAM  HYDREX 

Sta  ti on  12 


Di  st. 

from  F .  P . 

-396.  23 

Area 

3031.  365 

DRAFT 

(  fwd  ) 

32.  80 

Roll  Ctr  abv  WL 

0.  088 

DRAFT 

(aft) 

32.  80 

- HE 

AVE - 

A22 

B22 

F  eq. 

0.  00 

99. 0000 

0.  0000 

0  10 

11.  6174 

0.  8778 

C  20 

7.  2671 

1 .  4760 

0.  30 

5.  1586 

1  8017 

0.  40 

3.  9867 

1.  9286 

C  50 

3.  3206 

1 .  9089 

C.  60 

2.  9645 

1.  7834 

0.  70 

2.  8127 

1.  5879 

C  90 

2.  8677 

1.  1182 

1  30 

3.  3945 

0.  4073 

1. 60 

3.  6990 

0.  1707 

2  20 

7.  4603 

0.  0000 

- SWAY - 


A33 

B33 

A44 

2.  2896 

0.  0000 

949.  04 

1  9201 

0.  0002 

547.  86 

2  0412 

0.  0072 

561.  25 

2.  2434 

0.  0544 

581.  59 

2.  4304 

0.  2150 

593.  28 

2.  3837 

0.  5407 

571.  59 

1  9918 

0.  9268 

515.  09 

1 . 4567 

1.  1956 

456.  55 

0.  6952 

1.  3047 

401.  19 

0.  2841 

0.  9812 

408.  22 

0.  2848 

0.  7194 

423.  20 

0.  7945 

0.  0000 

748.  80 

-  — SWAY-ROLL - 

B44  A34  B34 


0. 

00 

34.  4 

0. 

0 

0. 

03 

20.  1 

0 

0 

1. 

07 

21.  3 

0. 

1 

7. 

57 

23.  3 

0. 

6 

27. 

55 

24.  8 

2. 

4 

62. 

45 

23.  5 

5. 

8 

94. 

63 

18.  7 

9. 

4 

106. 

05 

13.  0 

11. 

3 

83. 

61 

6.  3 

10 

4 

29. 

37 

4.  9 

5. 

4 

11. 

92 

6.  0 

2. 

9 

0. 

00 

15.  4 

0. 

0 

STATION  OFFSETS 


Height  above 

Half 

Submerged 

Offsets 

Baseline 

BREADth 

~Y  — 

-Z- 

0.  000 

C.  000 

-32.  800 

0.  000 

0.  591 

26.  303 

-32.  209 

26.  3C3 

0.  820 

30.  060 

-31.  980 

30.  060 

1 .  640 

33.  962 

-31.  160 

33.  p62 

3.  281 

38.  298 

-29.  519 

38.  298 

4.  921 

40.  610 

-27.  879 

40.  610 

6.  562 

42.  778 

-26.  238 

42.  778 

8  202 

44.  310 

-24.  598 

44.  310 

9.  842 

45.  524 

-22.  958 

45.  524 

11.  483 

46.  478 

-21 . 317 

46.  478 

13.  123 

47.  345 

-19.  677 

47.  345 

16.  404 

48.  703 

-16.  396 

48.  703 

19.  685 

49.  715 

-13.  115 

49.  715 

26.  247 

50.  929 

-6.  553 

50.  929 

29.  528 

51.  305 

-3.  272 

51.  305 

WATERLINE 

51.  593 

32.  808 

51.  594 

39.  370 

52.  027 

52.  493 

52.  605 

64.  304 

52.  750 

Figure  8.  Output  of  HYDREX2 
Partial  Listing 


NX 

NV 

NZ 

«* 

1 

0.  0000 

0.  0000 

1.  0000 

-l 

0.  0176 

0.  5404 

0.  8412 

0.  0264 

0.  7592 

0.  6504 

4 

0  0301 

0.  9964 

-0. 0797 

5 

0.  0394 

0.  9341 

-0.  3549 

0.  0525 

0.  9600 

-0. 2752 

/ 

0.  0698 

0.  9974 

-0.  0166 

8 

.  0.  0000 

0.  0000 

1.  0000 

0.  0120 

0.  4445 

0. 8957 

1 

0.  0283 

0.  8527 

0.  5216 

11 

0.  0365 

0.  9992 

0.  0133 

1  ' 

0.  0694 

0.  9962 

0.  0531 

0.  1151 

0.  9722 

0.  2037 

0.  0000 

0.  0000 

1.  0000 

0.  0158 

0.  3772 

0.  9260 

"510 

0.  7405 

0.  6701 

7  o 

0.  9135 

0.  3928 

79 

0.  9205 

0.  3594 

8 

0. 

'  0133 

0.  9999 

8. 

0.  OOu. 

"*4 

0.  9424 

82 

0.  0125 

0.  9458 

8 

0.  0532 

-  . 

0.  7425 

S 

0.  0786 

-0.  G- 

"547 

85 

0.  1172 

-0.  9156 

- 

a  ■ 

0.  1012 

-0.  9948 

a 

0.  0000 

-0.  0189 

0. 

8b 

0.  0000 

-0.  1640 

0.  9b<_ 

a* 

-0. 0131 

-0.  6156 

0.  7e80 

o 

0.  0138 

-0.  2842 

0.  9587 

9  * 

0.  04ei 

-0.  9936 

0. 1027 

92 

0.  0062 

-1 . 0000 

0.  0000 

9 

0.  0000 

-0.  0189 

0.  9998 

9 

-0.  0257 

-0.  1065 

0.  9940 

85 

-0.  0281 

-0.  1878 

0.  9818 

c 

-0.  0249 

-0.  2841 

0.  9585 

8 

-0.  0814 

-0.  9296 

0.  3594 

88 

-0.  0474 

-0.  9514 

0.  3044 

9o 

0.  0000 

-0.  1361 

0.  9907 

LC 

-0.  1575 

-0.  4456 

0.  8ei3 

[  0 1 

-0.  1307 

-0.  9247 

0.  3576 

.02 

-0.  1  182 

-0.  8364 

0.  5353 

LG 

0.  0000 

-0.  7894 

0.  6139 

LO  , 

-0  1077 

-0.  4486 

0.  8e72 

.05 

-0.  1705 

-0.  7102 

0.  6830 

LO 

0.  1558 

0.  8949 

-0.  4183 

LC 

0  0130 

-0.  7893 

0.  6139 

.08 

-0.  1703 

-0.  9843 

0.  0462 

,C~ 

-0.  2034 

-0.  7057 

0. 6787 

.  1 

0.  3141 

0.  9442 

-0. 0988 

1  1 

-1.  0000 

0.  0000 

0.  0000 

.  1 n 

-0. 1932 

-0. 6290 

0.  7530 

XP 

YP 

ZP 

ARE,, 

390.  0000 

0.  5867 

30.  0000 

79.  2000 

405.  0000 

3.  2150 

28.  5000 

499.  6292 

405.  0000 

6.  8350 

25.  5000 

355.  6513 

405.  0000 

7.  8800 

21.  0000 

541.  9710 

405.  0000 

6.  5000 

15.  0000 

578.  1236 

405.  0000 

4.  5000 

9.  0000 

562.  5251 

405.  0000 

3.  6200 

4.  8000 

216.  5585 

325.  0000 

1.  3000 

30.  0000 

182.  0000 

325.  0000 

5.  6225 

28.  5000 

472.  4277 

325.  0000 

9.  5625 

25.  5000 

2A6.  2683 

336.  6667 

10. 0800 

22.  0000 

210. 1 590 

325.  0000 

10.  7600 

16.  5000 

632.  4223 

325.  0000 

11. 8800 

7.  8000 

604.  7363 

257.  5000 

2.  1200 

30.  0000 

27  5.  6000 

257.  5000 

7.  9225 

28.  5000 

516.  9807 

257.  5000 

12.  9625 

25.  5000 

263.  3413 

257.  5000 

16.  9000 

18. 0000 

853.  8872 

257.  5000 

21. 8225 

6.  0000 

847.  3912 

ISO.  0000 

4.  5400 

29.  9375 

817.2  777 

195.  0000 

10.  5600 

28.  9167 

404.  92 '1 

165.  0000 

18. 8533 

26.  9167 

799.  3567 

195.  0000 

20.  1067 

25.  0000 

203.  6274 

180.  0000 

27.  4450 

18.  0000 

1312.  5092 

180.  0000 

34.  0325 

6.  0000 

1  i  34.  2212 

67.  5000 

9.  8800 

29.  8125 

2668. 0806 

•  0000 

27.  6267 

28.  y;:co 

1157.  2611 

''O 

28.  8000 

26.  9167 

1200.  2003 

- g 

40.  1600 
*1 . 9650 

25.  0000 
18.  0000 

324.  9435 
1871. 9629 

-60.  w 

"450 

6.  0000 

1657.  5626 

-60.  OOOu 

„  1 

29. 7500 

2376. 4260 

-120. 0000 
-150.  0000 

-lb. 

28.  2500 
0000 

145/.  4741 
219.  3015 

-150. 0000 

-37.  7o>_ 

^0 

475.  0337 

-120. 0000 
-150.  0000 

-45.  5600 
-47.  8533 

C- 

l  116.  7516 
"6, 0344 
"130 

-150. 0000 

-51. 0933 

8. 

-210. 0000 

-14.  5600 

28.  OOOl. 

-240. 0000 

-26.  4267 

22.  0000 

1  ■ 

-210. 0000 

-42.  5333 

16. 0000 

58o. 

-240. 0000 

-42.  4000 

8.  0000 

645.  65. 

-330. 0000 

-4.  6667 

24.  0000 

1026.  1578 

-300.  0000 

-16.  5333 

18.  0000 

1805.  62B7 

-330. 0000 

-25.  0467 

8.  0000 

760. 3083 

-352.  5000 

-20.  3800 

13.  8333 

1936.  0449 

-382.  5000 

-5.  16-7 

23.  8333 

769.  6833 

-405.  0000 

-6.  0733 

15.  0000 

891. 4889 

-382.  5000 

-14.  0867 

5.  1667 

573. 8820 

-405.  0000 

-9.  4200 

11.  0000 

929.  3218 

-427.  5000 

-3.  2100 

11.  0000 

49.  7100 

-435.  0000 

-3.  2100 

1.  1667 

62.  5984 

Figure  9.  Output  of  HYDREX3. 
Partial  Listing 


- WAVE  components - 

WAVE  AMPLITUDE  FREQUENCY  DIRECTION  PHASE 


1 

1.  00 

0.  34 
- qpt  t  t  nwAt 

180.  00 

unr^urr  DonoroTTrc  - 

0.  00 

:tion 

WEIGHT 

Kxx 

Centroid 

i 

94.  550 

37.  31 

9.  51 

2 

294.  550 

37.  31 

9.  51 

3 

296. 203 

37.  31 

9.  51 

4 

496.  203 

37.  31 

9.  51 

5 

1143.  822 

37.  31 

9.  51 

6 

1134.  935 

37.  31 

9.  51 

7 

1681.  707 

37.  31 

9.  51 

8 

2040.  042 

37.  31 

9.  51 

9 

2508. 421 

37.  31 

9.  51 

10 

2578.  811 

37.  31 

9.  51 

1  1 

3053. 338 

37.  31 

9.  51 

12 

3591. 325 

37.  31 

9.  51 

13 

3530.  823 

37.  31 

9.  51 

14 

3175.  776 

37.  31 

9.  51 

15 

3725.  574 

37.  31 

9.  51 

16 

3530.  628 

37.  31 

9.  51 

17 

2595.  390 

37.  31 

9.  51 

18 

3151.  427 

37.  31 

9.  51 

19 

2534.  063 

37.  31 

9.  51 

20 

1915.  669 

37.  31 

9.  51 

21 

1761.  739 

37.  31 

9.  51 

22 

715.  479 

37.  31 

9.  51 

23 

715.  479 

37.  31 

9.  51 

24 

747.  026 

37.  31 

9.  51 

25 

747.  026 

37.  31 

9.  51 

Figure  10.  Part  of  Output  of  SSX 
Partial  Listing 


II  o 


3L7  CONT A I NERSH I P 


PROGRAM  SSX  (Versic-  10) 


Inertial  Characteristics - 

- GYRADII 


WEIGHT 

47760  00  L.  TONS 

Kx  x 

47.  000 

ft 

Kyy 

219.  000 

ft 

XCG 

-478  050  ft 

Kz  z 

219.  000 

ft 

YCG 

42.  300  ft 

Kx  y 

0.  000 

ft 

ICG 

0  000  ft 

Kxz 

0.  000 

ft 

Ky  z 

0.  000 

ft 

-DAMPING  COEFFICIENTS - 

- OPS  DATA — 

MOTION 

( user  spec  if  led ) 
LINEAR 

QUADRATIC 

SURGE 

0.  OOOOE-t-OO 

0  OOOOE+OO 

SPEED  42. 

HEAVE 

0.  OOOOE+OO 

0.  OOOOE+OO 

SWAY 

0  OOOOE+OO 

0. OOOOE+OO 

ROLL 

0.  OOOOE  +  OO 

0. OOOOE+OO 

YAW 

0.  OOOOE+OO 

0.  OOOOE+OO 

PITCH 

0.  OOOOE+OO 

0. OOOOE+OO 

Initial  Conditions 


POSITION -  - VELOCITY 


X  (CG) 

0.  000 

ft 

SPEED 

42.  230 

ft/sec 

Y  ( CG  ) 

9.  412 

ft 

HEAVE 

0.  000 

ft/sec 

Z  (CG) 

0.  000 

ft 

SWAY 

C.  000 

ft/sec 

ROLL 

0  000 

deg 

ROLL 

0.  000 

deg/sec 

YAW 

0.  000 

deg 

YAW 

0.  000 

deg/sec 

PITCH 

0.  000 

deg 

PITCH 

0  000 

deg/sec 

SIMULATION 

PARAMETERS 

JOB  GPTIONS 

T I ME  <  START ) 

30.  00 

T IME ( END ) 

100  OO 

OUTPUT  DT 

0.  50 

INTEG.  DT 

0.  50 

MISCELLANEOUS  VALUES 


RHO  0  000889 
G  32. 169998 
JOBCO  1 

JOBFO  1  1  0 


Figure  10. 


Part  of  Output  of  SSX 
Partial  Listing 


TIME  WAVE 


0.  0000 

1.  OOOO 

0.  5000 

0.  9702 

1.  0000 

0.  8825 

1.  5000 

0.  7422 

2.  0000 

0.  5576 

2.  5000 

0.  3397 

3.  0000 

0.  1016 

3.  5000 

-0.  1426 

4.  0000 

-0.  3783 

4.  5000 

-0.  5914 

5.  0000 

-0.  7693 

5.  5000 

-0.  9012 

6.  0000 

-0.  9794 

6.  5000 

-0.  9991 

7.  0000 

-0.  9592 

7.  5000 

-0.  8621 

8.  0000 

-0.  7135 

8.  5000 

-0.  5224 

9.  0000 

-0.  3001 

88.  OOOO 

O.  6254 

88.  5000 

0.  7957 

89.  OOOO 

0.  9187 

89.  5000 

0.  98  7 0 

90.  OOOO 

0.  9966 

90.  5000 

0.  9469 

91.  OOOO 

0.  8409 

91.  5000 

0.  6849 

92.  OOOO 

0.  4881 

92.  5000 

0.  2621 

93.  OOOO 

0.  0205 

93.  5000 

-0.  2224 

94.  OOOO 

-0.  4521 

94.  5000 

-0.  6549 

95.  OOOO 

-0.  8187 

95.  5000 

-0.  9335 

96.  OOOO 

-0.  9926 

96.  5000 

-0.  9924 

97.  OOOO 

-0.  9328 

97.  5000 

-0.  8176 

98.  OOOO 

-0.  6535 

98.  5000 

-0.  4504 

99.  OOOO 

-0.  2205 

99.  5000 

0.  0225 

100.  OOOO 

0.  2640 

POSITION  OF  CENTER  OF 
X  Y 


0.  OOOO 

0.  OOOO 

21.  1150 

0.  0002 

42.  2301 

0.  0016 

63.  3456 

0.  0048 

84.  4618 

0.  0101 

105.  5792 

0.  0169 

126.  6983 

0.  0238 

147.  8197 

0.  0285 

168.  9435 

0.  0284 

190.  0700 

0.  0202 

211.  1992 

0.  0009 

232.  3307 

-0.  0322 

253.  4639 

-0.  0808 

274.  5980 

-0.  1451 

295.  7319 

-0.  2235 

316. 8644 

-0.  3120 

337.  9943 

-0.  4046 

359.  1200 

-0.  4931 

380.  2405 

-0.  5676 

3715.  1992 

0.  9302 

3736.  2339 

1.  0866 

3757.  2551 

1.  1782 

3778.  2671 

1.  1995 

3799.  2751 

1.  1492 

3820.  2847 

1.  0303 

3841 . 3008 

0.  8500 

3862.  3284 

0.  6189 

3883.  3718 

0.  3509 

3904.  4341 

0.  0621 

3925.  5173 

-0.  2304 

3946.  6223 

-0.  5090 

3967.  7488 

-0.  7573 

3988.  8945 

-0.  9603 

4010.  0569 

-1  1060 

4031.  2317 

-1.  1858 

4052. 4143 

-1.  1949 

4073.  5996 

-1.  1329 

4094.  7822 

-1.  0034 

4115.  9570 

-0.  8141 

4137.  1  196 

-0.  5763 

4158. 2656 

-0.  3041 

4179. 3926 

-0.  0138 

4200.  4980 

0.  2774 

4221.  5815 

0.  5521 

RMS  0.7112  304.  5 1 60  0.8489 

0.  0000 

MEAN  -0.0134  3704.3413  -0.0220 

0.  0000 

MAX  1.0000  4221.5815  1.2009 

O.  0000 

MIN  -0.  9991  0.  0000  -1.  1991 

0.  0000 


-  Figure  10.  Left  side  of  132  character 
width  printout  of  SSX  (partial) 


GRAVITY 

Z 

0.  OOC  0 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.0000 

o.  oooo 
0.  0000 
O.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
O.  0000 
0.  0000 
O.  0000 
O.  0000 
0.  0000 
O.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
0.  0000 
O.  0000 
O.  0000 


0.  0000 

0.  0000 

0.  0000 

0.  0000 


POTATIONS 

ROLL 

IN  DEGREES 
YAW 

PITCH 

nIDS.  VERT 

0.  0000 

0.  0000 

0.  0000 

0. OOOOOE+OO 

0  0000 

0.  0000 

0.  0000 

-0. 57850E+06 

0  0000 

0.  0000 

-0.  0002 

-0. 60541 E+06 

0.  0000 

0.  0000 

-0.  0008 

-0. 63125E+06 

0.  0000 

0.  0000 

-0.  0Q21 

-0. 65431E+06 

0.  0000 

0.  0000 

-0.  0047 

-0. 67303E+06 

0.  0000 

0.  0000 

-0.  0088 

-0. 68603E+06 

0.  0000 

0.  0000 

-0.  0148 

-0. 69229E+06 

0.  0000 

0.  0000 

-0.  0227 

-0. 691 16E+06 

0.  0000 

0.  0000 

-0.  0323 

-0. 68247E+06 

0.  0000 

0.  0000 

-0.  0433 

-0. 66658E+06 

0.  0000 

0.  0000 

-0.  0548 

-0. 64439E+06 

0.  0000 

0.  0000 

-0.  0656 

—0. 61/36E+06 

0.  0000 

0.  0000 

-0.  0745 

-0. 58740E+06 

0.  0000 

0.  0000 

-0.  0800 

-0.  556B2E+06 

0.  0000 

0.  0000 

-0.  0806 

-0. 52814E+06 

0.  oooo 

0.  0000 

-0.  0751 

-0.  50389E+06 

0.  0000 

0.  0000 

-0.  0626 

-0. 48633E+06 

0.  0000 

0.  0000 

-0.  0427 

-0. 47728E+06 

0.  0000 

O.  0000 

0.  2165 

-0. 62122E+06 

0.  0000 

0.  0000 

0.  1917 

-0. 62237E+06 

0.  0000 

0.  0000 

0.  1554 

-0. 62240E+06 

0.  0000 

0.  0000 

0.  1099 

-0. 62129E+06 

0.  0000 

0.  0000 

0.  0577 

-0. 61914E+06 

0.  0000 

0.  0000 

0.  0021 

-0. 61605E+06 

0.  0000 

0.  0000 

-0.  0537 

-0. 61218E+06 

0.  0000 

0.  0000 

-0.  1062 

-0. 60782E+06 

0.  0000 

0.  0000 

-0.  1523 

-0. 60310E+06 

0.  0000 

0.  0000 

-0.  1893 

-0. 59B42E+06 

0.  0000 

0.  0000 

-0.  2149 

-0. 59400E+06 

0.  0000 

0.  0000 

-0.  2275 

-0. 59013E+06 

0.  0000 

0.  0000 

-0.  2265 

-0. 58704E+06 

0.  0000 

0.  0000 

-0.  21 18 

-0. 58496E+06 

G.  0000 

0.  0000 

-0.  1846 

-0.  58401  E+06 

0.  0000 

0.  0000 

-0.  1463 

-0. 58419E+06 

0.  0000 

0.  0000 

-0.  0993 

-0. 58556E+06 

0.  0000 

0.  0000 

-0.  0465 

-0. 58798E+06 

0.  0000 

0.  0000 

0.  0091 

-0. 59137E+06 

0.  0000 

0.  0000 

0.  0641 

-0. 59538E+06 

0.  0000 

0.  0000 

0.  1154 

-0. 599S6E+06 

0.  0000 

0.  0000 

0.  1  59B 

-0. 60459E+06 

0.  0000 

0.  0000 

0.  1948 

-0. 609 1 5E+06 

0.  0000 

0.  0000 

0.  2183 

-0. 61340E+06 

0.  0000 

0.  0000 

0.  2289 

-0. 61708E+06 

0.  0000 

0.  0000 

0.  1599 

0. 13537E+05 

0.  0000 

0.  0000 

-0.  0053 

-0. 602B9E+06 

0.  0000 

0.  0000 

0.  2289 

0. OOOOOE+OO 

0.  0000 

0.  0000 

-0.  2282 

-0. 62252E+06 

SPEED 

42.  2300 
42.  2301 
42.  2305 
42.  2315 
42.  2335 
42.  2364 
42.  2403 
42.  2451 
42.  2503 
42.  2557 
42.  2608 
42.  2649 
42.  2676 
42.  2684 
42. 2669 
42.  2628 
42. 2560 
•+2.  ?4 '6 
42.  2 .'  >  1 

42.  0858 
42.  0545 
42.  0315 
42.  0183 
42.  0157 
42.  0238 
42.  0422 
42.  0697 
42.  1047 
42.  1451 
42.  1883 
42.  2318 
-  42.  2730 

42.  3092 
42.  3385 
42.  3591 
42.  3697 
42.  3697 
42.  3593 
42.  3389 
42.  3098 
42.  2737 
42.  2327 
42.  1891 
42.  1456 


0.  1269 
42.  1984 
42.  3768 
0. 0000 


Figure  10.  Right  side  of  132  character 
width  printout  of  SSX  (partial) 


JR  3URES 

0  284  1  5968 
0  19246852 

1  .  0579 1 485 

2  15990114 
3.  24160838 
4  04283953 

4  74622965 

5  02411795 
5  02339220 
5.  83394="' 


0  24316231 
0  1  777<b074 

1 .  29189086 

2.  33326197 

2.  96588731 

3.  78925920 

4.  53059387 
5  234Q=- 


0  23651379 
1  14601755 

1  40567327 

2  64962888 

3  32186317 
3  970  — 


0  22607508 

1  16095650 

2  06866050 

3  o~>~ 


0.  2  1 06  1  2s  = 
1  ’ " 


- TOTAL 

-1. 46834481 
0  23063746 
17  64413261 
1. 17200983 
1  39725995 
1  -  43834829 
2.  78261328 
56.  71600723 
e.  52794075 


PRESSURES 
-0.  83654284 

1.  18806934 

2.  48809695 
1  .  83491194 
1  88052142 

1.  74238777 

2.  71 100593 

3.  11889052 
7.  50’"' 


-0.  78719705 
-0  45587230 

1.  18732226 

2.  47403312 
2  80034971 

2  935439'’  = 

3  =' 


-1.  71809840 
-0. 17283618 
0  37171781 
0.  9994="  ' 


0. 00665942 
0  350"- 


B  5Y  INDUCED  PRESSURES 


-1 . 

85250449 

-1.  0797066 7 

0. 

03816893 

1 .  01030862 

16. 

58621788 

1.  19620597 

-0. 

98789 138 

-0.  49835002 

-1. 

84434843 

-1. 08536589 

-2. 

60449123 

-2. 04687142 

-1 . 

96361649 

-1. 819588C7 

51 . 

69189072 

-2. 11605954 

3. 

50454855 

1 . 93148851 

0 

40260637 

-0. 62282950 

-0 

41253781 

0. 83666974 

0. 

03906842 

-2  58687186 

-0. 

35989502 

-0. 1 1869927 

-0. 

73166758 

11.  49159718 

-1 . 

52942920 

-1. 04738855 

-1 . 

75089848 

-1.  78046894 

-2. 

62914538 

-2. 34276557 

30. 

93821144 

-2. 01 162410 

10. 

87392330 

0. 00000000 

-1. 

30158806 

2. 16383004 

1. 

78912711 

0.  56204945 

0 

34184885 

-0.  67282838 

0. 

00000000 

-0. 03861484 

-1 . 02371085 

-1. 94417346 

-1. 60188985 

-1. 33379269 

-0.  21835098 

-1. 69694269 

-0. 17559581 

-2. 02371120 

-0  52151340 

-0. 05880385 

-1. 03638288 

0  02363856 

-0. 79081982 

-1. 89128637 

-1.  65408003 

-1. 66934085 

-1 . 43030024 

-0.  60449553 

-0.  58973241 

-0. 03671409 

-0. 10891942 

0.  55786502 

-1  62076259 

-0.  77843022 

-0. 31951666 

-1  83989894 

-0. 16707416 

-0. 29368657 

-0. 60960990 

-0. 22613873 

-0.  91861057 

-0.  41995618 

-1. 72142696 

-1  22348630 

-1.  54072320 

-0. 79989606 

-2.  08891344 

-1. 69489515 

1. 18314898 

-1.  51980424 

-0. 96726221 

-0. 71865982 

-0.  67956263 

-0. 36257684 

-0  20395313 
-0. 83561438 
-1.  50451446 
-1. 95836079 
-2. 24148512 
1 . 00506485 
2.  57368040 
-1. 67518842 
1. 84978557 
2. 83566427 
0. 00000000 
7. 79187298 
-1. 40328050 
-1 . 92022955 
-2. 24740911 
0. 12429215 
1. 35021770 
-1.  55071521 
-1. 51071918 
-0. 68915701 
-0.  38488629 
0. 79844165 
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on  no  o  noon 


PROGRAM  SSX 
C 

CHAR AC TER *25  OFFIL,  BIFIL, COFIL, MATF IL 
CHAR AC TER *30  TITLE 
COMMON/HEAD/TITLE 

COMMON/ 1 OF I LE/  OFFIL,  BIFIL,  COFIL,  MATFIL 
COMMON/ 10/ INPUT , OUTPUT ,  BIF, OFF*  COF, MAT 
INTEGER  OUTPUT,  BIF, OFF,  COF 

COMMON  /CQEFF4  /  C0EFF4  (6,  1 2,  8,  25  ) ,  AREAN  (  25,  6 ) 
COMMON/OPTION/UQBCO,  JOBFO(IO), J0BP0<10> 

COMMON/ JOBP /JOBP 


COMMON 

/JOBB/ 

I JOB ,  IFORCE,  I AX  IS,  I WANT 

COMMON 

1 

2 

3 

4 

/ 

/ 

NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WUFRE  <  20 ) ,  WVDIR(20),  WVPHA(20), 
WN  <  20 ) ,  WNXC20),  WNZC20), 

CSK ( 20 ) ,  CCK ( 20 ) ,  CXKC20), 

CYKC20),  CZK  < 20 ) ,  XW(20) 

COMMON 

1 

2 

/ 

/ 

MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25). 

XOFF  ( 25 ) ,  Y0FF<25,  25),  Z0FF<25,  25), 

XPROF ( 51 ) ,  YPROF ( 51 ) 

COMMON 

/DAMP 

/ 

DAMPL ( 6 ) ,  DAMPG<6) 

COMMON 

/LHS 

/ 

Y  ( 13 ) 

COMMON 

/MASS 

/ 

RHO,  G,  GAMMA 

COMMON 

1 

/MASS 

/ 

DISPL,  SMASS,  XCG,  YCG,  ZCG, 

AMX,  AMY,  AMZ,  RADI  I  (6) 

COMMON 

/MASS 

/ 

PMI <3,  3) 

COMMON 

/RESIST/ 

SPEED 

COMMON 

/TIME 

/ 

TIME,  RAMP 

COMMON 

/TIME 

/ 

TO,  TSTART,  TSTOP,  TOUTPT,  TSTEP,  ERR 

COMMON/PREXIN/TPSTART,  TPSTOP,  TPRAMP,  BGX,  SMX,  BGY,  SMY,  TSCALE 
C0MM0N/DRFT1 /  DRAFT1 (6) 

COMMON  /SIGMA  /  NK,  SIGMA<24>,  SIGMAO,  ERRO,  0M(12> 

COMMON  /STATS  /  NRHS<4),  DELTA,  HSUM,  HMIN,  HMAX.  TTO,  TT1 
DATA  TO  /O.  0/ 

DATA  NEGS  /12/ 

LOGICAL  UL, ADJUST, INTERACT 
DATA  RHO  /O.  00088861607142/ 

DATA  FRRn/1  nc_'37  / 

DATA  INPUT/5/,  OUTPUT/6/, BIF/1/,  OFF/2/, COF/9/ 

DATA  MAT/3/ 


***  1.0  Get  DATA  file  names  and  assign/open  files 
TYPE  902 

ACCEPT  901, BIFIL 
TYPE  903 

ACCEPT  901, OFFIL 
TYPE  904 

ACCEPT  901, COFIL 
TYPE  905 

ACCEPT  901, MATFIL 

OP EN ( UN I T=B I F ,  STATUS® 'OLD ' , FILE=B IFIL > 

OPEN(UNIT=OFF, STATUS® 'OLD ' , FILE=OFFIL) 

OPEN ( UNI T=COF,  STATUS® 'OLD ' , FORM® 'UNFORMATTED ' ,  FILE=COFIL> 

IF ( MATFIL.  NE.  'NONE')  OPEN(UNIT=MAT, STATUS® 'OLD ',  FORM® 'UNFOR 
1  MATTED',  FILE=MATFIL) 

***  2.0  Read  in  data  from  CBIF2,  C0FF3  and  CCOFD  files 
CALL  READIN 

***  3.  0  Perform  preparatory  computations 
CALL  PREPARE 

CALL  COFFEE 
CALL  F0LI01 

I F ( UOBPO ( 1 ) .  EG.  1 )  CALL  OUTCOF 


no  o  noon  nor 


*■**  5.0  Simulation 

WRITE  (OUTPUT, 130) 

TSTEP =- AE S ( TSTEP ) 

TIME=T0 

TT0=T0 

TT1=T0 

110  CALL  F0LI02  IShotu  time  zero  condition 

TNEXT=TIME+TOUTPT 

Fourth-order  Runga-Kutta  integration 
CALL  RKF  (TIME,  Y,  TNEXT,  ERR,  NEQS, TSTEP ) 

***  Get  hull  girder  loads 
CALL  HULL 

Get  panel  pressures 
TP=TIME-TPSTART 

IF(TP.  GE.  0.  .  AND.  TP.  LE.  TPSTART)  CALL  PRESSURE(TP) 

TIME=TNEXT 

IF  (TIME. LT. TSTOP)  GO  TO  110 
120  CALL  F0LI02 
CALL  FINI 
STOP 

130  FORMAT  ( 1H1 , 27X,  29HP0SITI0N  OF  CENTER  OF  GRAVITY. 

*  9X, 20HR0TATI0NS  IN  DEGREES, 27X, 19HH0R I ZONTAL  VELOCITY/ 

*  4X,  4HTIME,  8X,  4HWAVE,  8X,  1HX,  11X,  1HY,  11X,  1HZ.  13X, 

%  4HR0LL,  9X,  3HYAW,  7X,  5HPITCH,  6X,  6HRUDDER, 

$  7X,  5HSPEED,  5X,  9HSWAY  RATE/) 


901  FORMAT ( A ) 


902 

FORMAT (  ' 

Name 

of 

Basic  INPUT  File 

CBIF3 

-> 

> 

'*  ) 

903 

FORMAT ( ' 

Name 

of 

Offset  File 

C0FF3 

•7 

> 

'*> 

904 

FORMAT ( ' 

Name 

of 

Coefficent  File 

EC0F1 

? 

> 

'*> 

905 

FORMAT ( ' 

Name 

of 

3-D  Matrix  File 

CMAT1 

-> 

> 

END 


c 


SUBROUTINE  READIN 


COMMON/ 10/ INPUT.  OUTPUT,  BIF,  OFF, CQF, MAT 
INTEGER  OUTPUT,  B  IF,  OFF,  COF 
INTEGER  ECHO 

COMMON  /SIGMA  /  NK,  SIGMA(24>,  SIGMAO,  ERRO,  0M(12) 
COMM ON /DR FT 1 /DR AFT  1 (6) 

COMMON/ IOFILE/  OFFIL,  BIFIL,  COFIL,  MATFIL 
COMMON/HEAD /TITLE 
CHAR AC TER *30  TITLE 

COMMON /COEFF4/COEFF4  ( 6,  12,  B,  25),  AREAN  (  25,  6) 

COMMON/OPT  I ON/ JOBCO, JOBFO( 10) ,  JOBPO( 10) 


COMMON 

1 

2 

3 

4 

/ 

/ 

NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR(20),  WVPHA(20), 
WN ( 20  > ,  WNX ( 20  > ,  WNZ ( 20 ) , 

CSK ( 20 ) ,  CCK ( 20 ) «  CXK(20>, 

C YK ( 20 ) ,  C  ZK ( 20 ) ,  XW(20) 

COMMON 

1 

2 

/ 

/ 

MSTA,  NPROF ,  NFWD,  NAFT,  LPTS(25>, 

XOFF  ( 25  ) ,  YOFF  (  25,  25  ) ,  Z0FF(25,25>, 

XPROF ( 51 ) ,  YPROF ( 51 / 

DAMPL ( 6 ) ,  DAMPQ ( 6 ) 

COMMON 

/DAMP 

/ 

COMMON 

/LHS 

/ 

Y(  13) 

COMMON 

/MASS 

/ 

RHO,  G,  GAMMA 

COMMON 

1 

/MASS 

/ 

DISPL,  SMASS,  XCG,  YCG,  ZCG, 

AMX,  AMY,  AMZ,  RADII  (6) 

COMMON 

/MASS 

/ 

PMI  (3,  3) 

COMMON 

/RESIST/ 

SPEED 

COMMON 

/TIME 

/ 

TIME,  RAMP 

COMMON 

/TIME 

/ 

TO,  TSTART ,  TSTOP,  TDUTPT ,  TSTEP,  ERR 

COMMON/S XPROP /  SEGMAS<26), SEGMOX ( 26 ) , STRMAS(26>, STRM0M(26>, 

*  STRMOX ( 26 ) ,  XBAR (26),  YBAR (26 ) » SEGWT ( 26 ) , NWTSTA 
REAL  XAFT ( 25 ) ,  YAFTC25),  XFWDC25),  YFWD(25) 

EQUIVALENCE  (XFWD<1),  XPROF(l)),  < YFWD ( 1 > , YPROF ( 1 ) ) , 

$  ( XAFT ( 1  ) ,  XPROF ( 26  >  > ,  ( YAFT ( 1 ) , YPROF ( 26 ) ) 

COMMON/PREXIN/TPSTART,  TPSTOP,  TPRAMP,  BGX, SMX, BGY, SMY, TSCALE 
COMMON/BD/XPAN( 120), YP AN ( 1 20 ) , ZPAN(120), AREAP(120>, 

*  ST( 120) , ACN( 120) , ACNWC 120) ,  AN( 120, 3) , E( 120) ,  P( 120,  6), 

*  PRFS( 120) , STOLD( 120) ,  PX ( 120,  6) 

COMMON/ A /NP AN,  NPT ,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMMON/SOURCE/  EE (120, 120) 

REAL  P0SIT<6), VEL0C(6) 

COMMON/D I SPLAY/TARE (6) 

EQUIVALENCE  ( POSIT < 1 ), Y ( 1 )) ,  ( VELOC ( 1 ) ,  Y ( 7 )  ) 

DATA  MAXSTA/25/ 

DATA  MAXPTS/25/ 

DATA  MAXFWD/25/ 

DATA  MAXAFT/25/ 

DATA  MAXWVS/20/ 

DATA  TPSTOP /O.  / 

DATA  ERRMIN/1. 0E-10/ 

CHAR AC TER *81  CARDID 

DATA  DEGREE/0.01745  32725  17743/ 

DATA  &  /32. 17/ 

DATA  NWL/1/ 

DATA  ECHO/ 4/ 

C  ***  OPEN  DATA  FILE  ECHO  PRINTOUT  FILE 

OPEN  ( UN  I T =ECHO,  TYPE=  'NEW  ',  NAME=  'ECHO.  DAT'  ) 

C 

WR I TE ( ECHO, 177) 

C  *■**  TITLE 

READ  (BIF, 177)  TITLE 
WR I TE ( ECHO, 176)  TITLE 

C  DRAFT  (fwfl),  DRAFT  (aft),  Iona,  loc's  of  DRAFT  marks 

READ  (BIF,  200)  TF,  TA,  XFPERP ,  X APERP 
WR ITE ( ECHO, 200)  TF, TA, XFPERP, XAPERP 
C  ***  Center  of  Gravity  (XCG  aft  of  FP,  YCG  above  BL) 

READ  (BIF, 200)  XCG, YCG, ZCG 
WRITE(ECHD,  200)  XCG,  YCG,  ZCG 
C  ***  Six  DRAFTS  at  which  hydro,  coeffs  are  computed 
READ(BIF, 200)  ( DR AFT  1 ( I ) ,  1  =  1 , 6 ) 

WRITE  (ECHO,  200)  ( DRAFT  1  (I),  1  =  1,6) 

C  *•#•*  Minimum  segment  lengths  for  Frank  Close  Fit 
READ  (BIF,  201)  YMAX,  ZMAX,  WMAX,  NWL 
WRITE  (ECHO,  201  )  YMAX,  ZMAX,  WMAX,  NWL 
ADJUST=ZMAX.  GT.  0.  0.  AND.  YMAX.  GT.  0.  0 


no  ooooo 


rofile  points 


C  ***  Number  of  forward  p 
READ  (BIF,  190)  NFWD 
WR I TE ( ECHO/ 190)  NFWD 

IF  (NFWD.  GT  25)  CALL  ERROR ( 1 5,  IDUM, RDUM ) 

C  ***  Coordinates  of  forward  profile  points 

IF  (NFWD.  GT.O)  READ  (BIF, 430)  ( YFWD ( I > ,  XFWD ( I ) ,  1  =  1 , NFWD ) 

WRITE (ECHO, 430)  ( YFWD ( I ), XFWD( I ) , 1=1, NFWD) 

C  ***  Number  of  aft  profile  points 
READ  (B IF, 190)  NAFT 
WRITE (ECHO, 190 )  NAFT 

IF  (NAFT.  GT. 25)  CALL  ERROR ( 16, IDUM, RDUM) 

C  ***  Coordinates  of  aft  profile  points 

IF  (NAFT. GT.O)  READ  (BIF, 430)  ( YAFT ( I ) , XAFT ( I ) , 1=1 , NAFT ) 

WRITE (ECHO, 430)  ( YAFT ( I ), XAFT (I ), 1=1, NAFT) 

C  **-*  Displacement 

READ(BIF, 202)  DISPL 
WRITE(ECHC),  200)  DISPL 
C  ■**•*  Radii  of  gyration 

READ(BIF, 202)  RADII 
WRITE(ECHO,  c'OO  /  RADII 
C  ***  Ship  speed 

READ(BiF,  202)  5PEED 
WRITE (ECHO, 200)  SPEED 
C  Linear  Damping  Constants 

READCBIF,  202)  DAMPl. 

WRITE(ECHO, 200)  DAMPL 
C  *#•*  Quadratic  Damping  Constants 
READ(BIF, 202)  DAMPQ 
WRITE(ECHO, 200 )  DAMPQ 
C  ***  Number  of  wave  components 
WR ITE ( ECHO, 203 )  NWAVES 
READ (BIF,  203 )  NWAVES 
C  ***  Wave  component  specifications 
DO  140  J=l,  NWAVES 

READ (BIF, 202)  WVAMP ( J) , WVFRE( J) , WVDIR( J) , WVPHA( J) 

WRITE (ECHO, 200 )  WVAMP (J) , WVFRE< J) , WVDIR ( J ) , WVPHA( J) 

140  CONTINUE 

C  ***  Initial  position 

READ(BIF, 202)  POSIT 
WRITE(ECHO, 200)  POSIT 
C  ***  Initial  velocities 
READ(BIF,  202)  VELOC 
WR I TE ( ECHO,  200 )  VELOC 
C  ***  Simulation  sp ec i f i ca t i on 

READ (BIF,  202)  TST ART ,  TSTOP,  TOUTPT, TSTEP 
WR I TE  <  ECHO,  200)  TSTART , TSTOP,  TOUTPT, TSTEP 
C  ***  Number  of  weight  stations 
READ (BIF, 203  >  NWTSTA 
WRITE(ECHO, 203)  NWTSTA 

C  *#•*  Segment  weight,  rotational  gyradii  ,  centroid 
DO  141  J=l, NWTSTA 

READ (BIF,  202)  SEGWT ( J ) ,  SEGMOX ( J ) , YBAR ( J ) 

WRITE (ECHO,  200)  SEGWT ( J)  ,  SEGMOX (J), YBAR ( J  > 

141  CONTINUE 
C 

IF ( MATFIL. EQ.  'NONE')  GO  TO  1000 
READ (BIF,  202)  TPST ART ,  TPSTOP,  TPRAMP 
WR I TE ( ECHO,  200)  TPSTART ,  TPSTOP,  TPRAMP 
READ (BIF,  202)  BG  X ,  SMX,  BGY, SMY, TSCALE 
WR I TE ( ECHO,  200)  BGX , SMX, BGY,  SMY,  TSCALE 


Section  2. O  -  READ  OFFSET  file 

The  offset  file  can  be  an  actual  SHCP  DATA  File 
1000  CONTINUE 

WR I TE ( ECHO,  198) 


***  CARD  TYPE  A 

KhAL)  (  UR  f-  >  410)  CARDID 
WRITE(ECHO, 410)  CARDID 
C  ***  CARD  TYPE  B 

READ  (OFF, 410) 

C  *•**  CARD  TYPE  C 

READ  (OFF,  412)  SPACE,  ZSCAL,  YSCAL, SHIPL, NAPN, KINDO 

WR I TE ( ECHO,  412) SPACE,  ZSCAL,  YSCAL,  SHIPL, NAPN, KINDO 

IF  (SPACE.  EQ.  0.  0)  SPACE=1.0 

ZSCAL=1 . 0 

YSCAL=1 . 0 

MSTA=0 

NFWD=0 

NAFT =0 


SUBROUTINE  AFSR 
INTIIALIZES  FREE  SURFACE 

COMMON/BD/XPAN( 120) ,  YPAN( 120),  ZPAN(  120),  AREA ( 120) , ST ( 120 
ACN  (  120),  ACNW(  120),  AN(  120,  3),  E(  20),  P(120,  6 ) ,  PRFS  <  120  > , 
STOLDC 120) , PX ( 120, 6 ) 

COMMON/FS/AKZ  (  100,  100),  SS(  100,  100),  CC(100,  100), 

DKX(IOO),  DKY(IOO),  AKX(IOO), AKY(IOO) 

COMMON/FS 1 /A (  100,  100),  B<  100,  100),  AS  ( 100,  100),  BStlOO,  100) 
COMMON/A/NPAN,  NPT ,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMMON/PREXIN/TPSTART, TPSTOP, TPRAMP, BGX, SMX, BGY,  SMY,  TSCALE 
COMPLEX  A,  B,  AS,  BS,  EYE 
DKTT=1 . 0/ (GEE*TSCALE*TSCALE> 

NBX=0.  5/ ( BGX*DKTT ) 

NBY=0.  5/ ( BGY*DKTT ) 

AMX  =  1 .  O/SMX 
AMY=1.  O/SMY 
N=0 


M=0 

A0LD=0.  0 

IF  ( N.  GE.  NBX  )  GO  TO  2 
N=N+1 

AKX ( N ) =N*N*DKTT 
AOLD=AKX ( N ) 

IF  ( AOLD.  GE.  AMX  )  NBX=N 
GO  TO  1 


N=N+1 

AKX ( N ) =AOLD+ 1 . O/BGX 
AOLD=AKX (N) 

IF ( AOLD.  LE.  AMX)  GO  TO  2 
NKX=N 


AKX ( NKX  +  1 )=A0LD+1.  O/BGX 
A0LD=0.  00 

IF  ( M.  GE.  NBY )  GO  TO  22 
M=M+1 

AKY(M)=M*M*DKTT 

AOLD=AKY(M) 

IF  <  AOLD.  GE.  AMY)  NBY=M 

GO  TO  11 

M=M+1 

AK Y ( M ) = AOLD+ 1 .  O/BGY 
AOLD=AKY ( M ) 

IF  (AOLD.  LE.  AMY)  GO  TO  22 
NKY=M 


AKYCM+l )=AKY(M)  +  1.  O/BGY 

AFF=0.  000 

DO  17  N=l, NKX 

AF= ( AKX ( N+l )+AKX(N) )*0.  50 

DKX(N)=AF-AFF 

AFF=AF 


BFF=0.  00 

DO  18  N=1 , NKY 

BF=( AKY ( N+l ) +AKY ( N ) )*0.  50 

DKY ( N ) =BF-BFF 

BFF=BF 

DO  100  N=1 , NKX 
DO  100  M=1 ,  NKY 
A  ( N,  M )  =  ( 0.  0,  0.  0) 

B  (N,  M)  =  (0.  0,  0.  0) 

AS  ( N,  M)  =  (0.  0,  0.  0) 

BS(N,  M )  =  ( 0.  0,  0.  0) 

AKZ ( N, M ) =SQRT ( AKX (N) **2+AKY(M)**2 ) 
SIG=SOPT(GEE*AKZ(N, M) > 

SS(N, M)=SIN(SIG*DT) 

CC (N, M ) =COS (SI G*DT ) 

CONTINUE 

RETURN 

END 


nnn  non  non  onn  nnnn  non  non 


SUBROUTINE  PRESSURE(TP) 

COMMON/ 10/ INPUT  > OUTPUT,  BIF, OFF,  COF, MAT 
INTEGER  OUTPUT, BIF, OFF, COF 
INTEGER  ECHO 

COMMON  /SIGMA  /  NK,  SIGMA<24>,  SIGMAO,  ERRO,  0M(12) 
C0MM0N/DRFT1 /DRAFT  1 (6) 

COMMON/ IOFILE/  OFFIL, BIFIL, COFIL, MATFIL 

COMMON/HEAD/TITLE 

CHAR AC TER #30  TITLE 

COMMON/C 0EFF4/C0EFF4 ( 6, 12, 8, 25), AREAN (25, 6) 


COMMON 

1 

2 

3 

4 

/ 

/ 

NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR(20),  WVPHA(20), 
WN ( 20 ) ,  WNX ( 20 ) ,  WNZ ( 20 ) , 

CSK ( 20 ) ,  CCK ( 20 ) ,  CXK(20>, 

C YK ( 20 ) ,  C ZK ( 20 ) ,  XW(20) 

COMMON 

1 

2 

/ 

/ 

MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25), 

XOFF  (  25  )  ,  YOFF  (  25,  25 ) ,  Z0FF(25,25), 

XPROF (51),  YPROF ( 51 ) 

COMMON 

/DAMP 

/ 

DAMPL ( 6 ) ,  DAMPQ ( 6 ) 

COMMON 

/LHS 

/ 

Y(  13) 

COMMON 

/MASS 

/ 

RHO,  G,  GAMMA 

COMMON 

1 

/MASS 

/ 

DISPL,  SMASS,  XCG,  YCG,  ZCG, 

AMX ,  AMY,  AMZ,  RADI  1(6) 

COMMON 

/MASS 

/ 

PM I  (3,  3) 

COMMON 

/RESIST/ 

SPEED 

COMMON 

/TIME 

/ 

TIME,  RAMP 

COMMON 

/TIME 

/ 

TO,  TSTART ,  TSTOP,  TOUTPT,  TSTEP,  ERR 

COMMON/S X PR OP /  SEGMAS(26),  SEGM0X(26>, STRMAS(26),  STRM0M(26), 

*  STRMOX  ( 26 ) ,  XB AR ( 26 ) ,  YB AR ( 26 ) ,  SEGWT  (  26  ) ,  NWTSTA 

REAL  XAFT ( 25 ) ,  YAFT ( 25 ) ,  XFWD(25>,  YFWD(25) 

EQUIVALENCE  (  XFWD  (  1  > ,  XPROF(l)),  (  YFWD  Cl),  YPROF  ( 1  )  ) , 

*  (XAFT(l),  XPROF<26)), ( YAFT ( 1 ), YPROF ( 26 ) ) 
COMMON/PREXIN/TPSTART,  TPSTOP,  TPRAMP, BGX,  SMX, BGY , SMY,  TSCALE 

COMMON/BD/XPANC 120),  YPAN( 120),  ZPAN( 120),  AREA (120), 

*  ST  (  120),  ACN(  120)  ,  ACNW(  120)  ,  AN  (  120,  3) ,  E(  120),  P(  120,  6), 

*  PRFS  < 1 20 ) , STOLD ( 1 20 ) ,  P  X ( 120,  6  > 

COMMON/FS/AKZ (100,  100),  55(100,  100),  CC(100,  100), 

*  DKX(IOO), DKY(IOO), AKX(IOO), AKY(IOO) 

C0MM0N/BD2/XPT( 150),  YPT(150),  ZPT(150),  WRF(150), 

*  WRFR ( 1 50 ) , KK ( 1 50, 4 ) 

COMMON/A/NPAN,  NPT ,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
REAL  POSIT ( 6 ) , VELOC ( 6 ) 

COMMON/SOURCE/EE ( 120, 120) , BPRES( 120) , PT(6) 

COMMON/DI SPLAY/ TARE ( 6 ) 


T IM=TP 
UFWD=YY(7) 

***  Get  free  surface  induce  component  of  normal  acceleration 
at  panel  centers  ACNW(J)  and  pressure  force  array  PF. 

CALL  ACPTR 

#**  Get  exciting  normal  acceleration  at  panel  centers 
CALL  XNA ( AXMT ,  AYMT ,  AZMT , ARLMT , APMT, AYWMT  > 

*#*  Compute  panel  source  strengths 

CALL  ZBLACN(AXMT,  AYMT,  AZMT, ARLMT, APMT, AYWMT) 

*#*  Compute  body  induced  forces  and  pressures 
CALL  POTS 

***  Advance  free  surface  for  single  time  step 
CALL  CFSR 

*#*  Forces  and  moments 

CALL  PRFR(PT) 

C 

RETURN 

END 


c 

c 


16 


163 

C 


C 

1500 

60 

1070 


SUBROUTINE  ACPTR 

Computes  wave  incduced  acceleritions  and  pressures  at 

VpAN(120),  ZPAN  ( 120) .  AREA  ( 120  ) .  ST ( 120 ) . 
StSl0?  1 20?'p X  <  J|8,» ^ N ‘  > 2°'  3  >  ■  E  <  ' 2°>  •  <=  <  120,  6 ) .  PRFS ( 120 , , 

DKX<100'ifDKY(100?:A°X(i00)lAKy(?00)CC<i0<:>'100>' 

C0MM0N/FS1/A< 100,  100), BdOO,  100), ASdOO,  100), BS(100,  100) 
COMMON/A/NPAN,  NPT,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMPLEX  EYE,  SC,  BX,  CX,  BY,  CY,  BYCON,  SCON,  SK,  SKON, 

Bl,  B2,  Cl,  C2 
COMPLEX  A,  B,  AS,  BS 

DIMENSION  BXdOO),  CX(IOO),  PF(6),  DXdOO) 

DO  1500  U=1 ,  NPAN 
AX=AN ( J, 1 ) 

AY=AN( J,  2) 

AZ=AN< J,  3) 

X=XPAN( J) 

Y=YPAN( J) 

Z=ZPAN ( J ) 

ACT=0.  00 
PRT=0.  00 
DVDZ=0.  00 
DO  16  N=l, NKX 
CCXX=AKX(N)*X 
S=S IN ( CCXX ) 

C=COS(CCXX) 

BX(N)=CMPLX(C,  S)*DKX<N) 

DX ( N ) =— AKX  <  N ) *AKX  <  N ) *AX 
CX<N)=AKX(N)*AX*EYE 
DO  163  M=1 , NKY 
CCYY=AKY(M)*Y 


o  <  o , 


r 


S=S IN  <  CC YY ) 

C=COS ( CCYY ) 

B Y=CMPLX ( C,  S ) *DKY < M ) 

BYCON=CONJG ( BY ) 

C  Y=AKY ( M ) *A Y*EYE 
DO  163  N=l,  NKX 
ARGZ=AKZ (N, M>*Z 
DEP=EXP (-ARGZ) 

B1=DEP*BY*BX<N> 

B2=DEP*B YCON*B  X  <  N  > 

CZ=AKZ(N, M)*AZ 
SC=B1*A(N, M) 

SC0N=B2*AS(N,  M) 

SK=B1*B (N, M) 

SK0N=B2*BS ( N, M) 

C 1 =CX ( N ) +CY— C  Z 
C2=CX ( N ) -CY-C  Z 
ACT=ACT-C1*SC-C2*SC0N 

g^Z  =PR  j+!c+s CON ( N  *  *  ( C 1  *Si^+C2*SK0N  )  /SORT  <  AKZ  ( N,  M )  ) 

CONTINUE . .  .  . 

NORMAL  ACCELERATION  INDUCED  BY  FREE  SURFACE 
DVDZ=DVZ*UFWD*SGRT(GEE) 

ACNW ( J ) =ACT »GEE+DVDZ 

PRESSURE  INDUCED  BY  FREE  SURFACE 

PRFS ( J ) =PRT*GEE*RHOP 

CONTINUE 

FORMAT ( '  FREE  SURFACE  INDUCE  PRESSURES') 

FORMAT  (  1  X,  5F16.  8  ) 

TYPE  60 

TYPE  1070,  <PRFS(J>,  J=l,  NPAN) 

RETURN 

END 


SUBROUTINE  CFSR 

C  ***  Advance  free  surface  wave  spectra  in  time 

COMMON /BD/XP AN C 1 20 ) , YPANC120),  ZPANC120), AREA( 120) , ST ( 120) , 

*  ACN( 120) . ACNW ( 1 20 ) ,  AN ( 120, 3 ) , E ( 120 ) , P ( 120, 6 ) , PRFS( 120), 

*  STOLD( 120),  PX( 120, 6) 

COMMQN/FS/AKZ ( 100, 100), SSC100, 100), CCdOO, 100), 

*  DKX(IOO),  DKYC100), AKXC100), AKY(IOO) 

C0MM0N/FS1 /A C  100,  100),  BC100,  100),  ASdOO,  100),BS(100,  100) 
COMMON/A/NPAN,  NPT,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
DIMENSION  CXdOO) 

COMPLEX  EYE,  AT,  ATS,  CX,  CY,  CXY1,  CXYS,  A,  B,  AS,  BS,  DFWD 
DO  100  N=l,  NKX 
CXX=AKX (N)*UFWD*DT 
S=S IN ( C  XX ) 

C=COS(CXX ) 

DFWD=CMPLX ( C ,  -S) 

DO  100  M=l, NKY 
CT=CC(N, M) 

STT=SS(N,  M) 

AT=ACN,  M)*CT+BCN,  M)*STT 
ATS=AS(N,  M)*CT+BSCN,  M)*STT 
B  CN,  M)=B  CN,  M)*CT-ACN,  M)*STT 
BSC N, M)=BS(N,  M)*CT-AS<N, M)*STT 
ACN, M)=AT 
AS ( N, M)=ATS 

C  MOVE  FREE  SURFACE  RELATIVE  TO  BODY  WITH  FWD  SPEED 

ACN, M)=A(N,  M)*DFWD 
BCN,  M)=BCN,  M)*DFWD 
AS C N, M)=ASCN,  M)*DFWD 
BSCN, M)=BSCN,  M)*DFWD 
100  CONTINUE 

6  CONTINUE 

C  ***  Add  effects  of  source  panels  acting  over  one  time  step 

DO  1500  J=1 , NPAN 

STAR=(STC J)*0.  50*DT +STOLD  C  J > >  *DT 
C  ST  IS  TIME  RATE  OF  CHANGE  OF  SOURCE  STRENGTH 
C  STOLD  IS  SOURCE  STRENGTH  AT  START  OF  TIME  STEP 
C  STAR  IS  AVERAGE  VALUE  OF  STRENGTH  OVER  THE  TIME  STEP 
STAR2=ST0LDCJ>*DT 
STAR=STAR*AREAC J ) *0.  6366197724 
STAR2=STAR2*AREAC J)*0.  31831 
X  =  XP AN  C  J ) 

IFCUTM.  GT.  O)  X  =  X-UFWD*DT*.  5 
Y=YPANC J) 

Z=ZP AN  C  J ) 

DO  93  N=l, NKX 

CXX=AKXCN)*X 

S=SINCCXX> 

C=COS(CXX) 

93  CX CN) =CMPLX CC»  — S ) 

DO  94  M=l, NKY 

CYY=AKYCM)*Y 

S=SINCCYY> 

C=COS(CYY) 

CY=CMPLXCC,  -S> 

DO  94  N=l, NKX 
ARGZ=AKZCN, M)*Z 
DEP=EXP  <  — ARGZ ) 

CXY1=CXCN)*CY*DEP 

CXYS=CX(N)*DEP*CONJGCCY) 

ACN, M)=A(N,  M)+STAR*CXY1 
AS ( N,  M)=AS(N,  M)+STAR*CXYS 

C  BCN, M)  AND  BSCN, M)  INCREMENTED  NEGLECTING  CHANGES  IN 
C  SOURCE  STRENGTHS 

C  OVER  TIME  INTERVAL  ARE  SECOND  ORDER  IN  DT 
BCN,  M)=B(N,  M)-STAR2*CXY1*SS(N, M) 

BSCN, M ) =BS ( N,  M)-STAR2*CXYS*SSCN,  M> 

94  CONTINUE 
1500  CONTINUE 

RETURN 

END 


oo 


SUBROUTINE  POTB 

*■*•*  Pressures  induced  by  time  rate  of  change  of  source 
strength  of  panel  J  in  space  fixed  coordinates 
COMMQN/BD/XPAN ( 120 ) , YPAN( 120),  ZPAN( 120), AREA( 120),  ST( 120) , 

*  ACNC  120),  ACNW(  120),  AN(  120,  3) ,  E(  120),  P(120,  6),  PRFSC 120), 

*  STOLDC 120),  PX(120,  6) 

COMMQN/A/NP AN,  NPT ,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMMON/SOURCE/EE ( 120,  120) , BPRES( 120) 

COMPLEX  EYE 
DIMENSION  PP (A ) 

PP(  1  >=0.  00 
PP  ( 2 )  =0.  00 
PP  ( 3 )  =0.  00 
PP  ( 4  )  =0.  00 
PP  (  5 )  =0.  00 
PP  ( 6 )  =0.  00 

,  DO  1500  J=1 ,  NPAN 

C  ST ( J)  IS  TIME  RATE  OF  CHANGE  IN  HULL  FIXED  SYSTEM  OF  SOURCE  STRENGTH 
C  OF  PANEL  J 

C  STAY  IS  AVERAGE  SOURCE  STRENGTH  OVER  TIME  STEP  AT  CENTER  OF  PANEL  J 
(  STAV=STOLD( J)+0.  5*DT*ST(J) 

C  TIME  DERIVATIVE  IN  SPACE  FIXED  SYSTEM 
DO  1200  K=1 , 6 

PP (K)=PP (K)  +  (ST ( J)*P ( J, K)-STAV*UFWD*PX( J,  K) )*RHOP 
1200  CONTINUE 

1500  CONTINUE 

DO  1800  J=1 ,  NPAN 

EPRES( J)=(ST ( J)*P ( J, 3)-STAV*UFWD*PX CU,  3) >*RHOP 
i  DENOM=AN C  J,  3 ) *AREA ( J  > 

IF(DENOM.  EQ.  0.  )  THEN 
BPRES  ( J )  =0. 

ELSE 

BPRES ( U ) =BPRES ( J ) /DENOM 
ENDIF 

1800  CONTINUE 

TYPE  *,  '  BODY  INDUCED  PRESSURES ' 

TYPE  1070,  (BPRES(J), J=l,  NPAN) 

1070  FORMAT (IX, 5F16.  8 ) 

TYPE  * 

TYPE  1870 

1870  FORMAT (  '  BODY  INDUCED  FORCES=  ' ) 

TYPE  2020,  PP(1  ),  PP(2),  PP<3>,  PPC4),  PP(5),  PP(6> 

-2020  FORMAT  (OX,  3F20.  6  ) . . . -  - . 

RETURN 

END 


SUBROUTINE  PRFR(PT) 

C  ■**■*  Computes  forces  and  moments 

COMMDN/BD/XPANC 120), YPAN(120), ZPAN(120>, AREA ( 120 >, ST (120), 

*  ACN ( 120) , ACNWC 120) , AN ( 1 20, 3 ) , E ( 1 20 ) , P ( 1 20, 6 ) , PRFS ( 120 ) , 

*  STOLD( 120) ,  PX ( 120, 6) 

COMMON/ A/NP AN,  NPT ,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
DIMENSION  PF ( 6 ) 

COMMON/SOURCE/EE ( 120, 120), BPRES( 120) 

COMMON/MASS/RHO,  G,  GAMMA,  DISPL,  SMASS,  XCG,  YCG,  ZCG 
COMMON  /  /  MSTA,  NPROF ,  NFWD,  NAFT,  LPTS(25>, 

1  XOFF  (25  ) ,  YOFF  (25,  25  ) ,  ZQFF(25,  25), 

2  XPROF ( 51 > ,  YPRQF ( 51 ) 

COMPLEX  EYE 

COMMON/D ISPLAY/TARE ( 6 ) 

X1=0.  0 
X2=0.  0 
X3=0.  0 
X4=0.  0 
X5=0.  0 
X6=0.  0 

XCGAM=XCG-(.  5* ( XOFF ( 1 ) -XOFF (MSTA ) ) ) 

DO  725  J=l. NPAN 
TPRES=BPRES ( J ) +PRFS ( J ) 

PRS=TPRES ( J ) *AREA ( J ) 

FRX=-AN( J, 1 )*PRS 
FRY=-AN( J, 2)*PRS 
FRZ=-AN( J, 3)*PRS 
XF=XP AN ( J+XCGAM 
YF=YPAN ( J ) 

ZF=ZP  AN  (  J )  -t-TARE  (  2  ) 

X1=X1+FRX 

X2=X2+FRY 

X3=X3+FRZ 

X4=X4fYF*FRZ-ZF*FRY 
X5=X5+ZF*FRX-XF*FRZ 
X6=X6+XF*FRY-YF*FRX 
725  CONTINUE 

TYPE  80 

80  FORMAT ('  PRESSURE  INDUCED  FORCES - ') 

TYPE  40,  XI,  X2<  X3,  X4,  X5,  X6 

PT( 1 )=X1 

PT ( 2 ) =X2 

PT(3)=X3 

PT ( 4 ) =X4 

PTC  5)=X5 

PT ( 6 ) =X6 

40  FORMATC  5X,  3F15.  7) 

RETURN 

END 


no  on 


SUBROUTINE  ZBLACN< ACBX, ACBY, ACBZ, ACBRL, ACBP, ACBYW ) 

C  *■##  Computes  source  strengths  satisfying  body  b.c. 

COMMON /BD/XP AN ( 1 20 ) , YPANC 120) , ZPAN( 120) , AREA ( 120), ST ( 120) 
*,  ACN(  120).  ACNW  (  120  ) ,  AN  (  120,  3  ) .  E  (  120 ) .  P(  120.  6),  PRFS(  120), 

*  STOLD ( 120 ) ,  PX ( 120, 6 ) 

COMMON/A/NPAN,  NPT,  GEE,  RHOP,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMMON/SOURCE/EE ( 120, 120), BPRES<120> 

COMPLEX  EYE 
DO  1800  J=1 , NPAN 
X=XP AN ( J ) 

Y=YPANC J) 

Z=ZPAN(U) 

ACX=ACBX+ACBP*Z-ACBYW*Y 
AC Y=ACB Y+ACB YW*X— ACBRL*Z 
ACZ=ACBZ+ACBRL*Y-ACBP*X 

**■»  Dot  product  of  body  acc.  +  nrml  free-surface  indcuded 
normal  acceleration 

ACN< J)=-ACNW(U)+ACX*AN( J,  1  ) •+ AC Y*AN (  J,  2 ) +ACZ*AN< J, 3 ) 

*#«  Integrate  time  derivative  for  total  source  strenght 
at  start  of  time  step 
STOLD ( J ) =STOLD ( J ) +DT*ST ( J  > 

ST  <  J )  =0.  00 
1800  CONTINUE 

DO  1500  J=1 , NPAN 
AC=ACN ( J ) 

DO  1400  K=1 ,  NPAN 
ST ( K ) =ST  <  K ) +EE ( J,  K)*AC 
1400  CONTINUE 

1500  CONTINUE 

RETURN 
END 


noon  noon  nnnnonn  on 


***  CARD  TYPE  D 
30  N=1 

MST  A=MSTA+ 1 

IF  (MSTA.  GT.  25)  CALL  ERROR < 1 0, I DUM, RDUM ) 

READ  (OFF, 416)  STATNO, Y1 1 ,  Z 1 ,  JTEST 
WRITE (ECHO, 417)  STATNO, Y1 1, Zl, JTEST 
XOFF ( MSTA ) =STATNQ* SPACE 
GO  TO  50 

40  CONTINUE  !loop  within  each  station 

N=N+1 

IF  (N.  GT.  25)  CALL  ERROR  ( 1 1 ,  MSTA,  RDUM ) 

READ  (OFF, 416)  S, Y 1 1 , Z 1 , JTEST 

WRITE(ECHQ, 417)  S, Y 1 1 , Z 1 , JTEST 

IF  (S. NE. STATNO)  CALL  ERROR ( 12, MSTA, RDUM ) 

50  YOFF(N, MSTA)=Z1*ZSCAL 
ZOFF  ( N,  MSTA  )  =Y  1 1  s-YSCAL-  • 

IF  (JTEST.  EQ.  0  .OR.  JTEST.  EG.  77777  >  GO  TO  40 

LPTS ( MSTA ) =N  !No.  of  points-  MSTA 

IF  (N.  LT.  2)  CALL  ERROR  ( 1 3,  MSTA,  RDUM ) 

IF  (JTEST.  EQ.  S8SS8)  GO  TO  30  !Go  onto  next  station 

IF  (JTEST. NE. 99999)  CALL  ERROR ( 14, JTEST, RDUM > 


Section  3.0  READ  COEFFICIENT  FILE 

READ  (COF)  MSTA  '.Number  of  Stations 

READ  (COF)  (0M(  I  ),  1  =  1,  12)  '.Frequency  (rad/sec) 

READ  (COF)  (DRAFT1 ( I ),  1  =  1, 6)  ! DRAFT  s 

DO  300  L=1,MSTA  IStation  index 

DO  300  K= 1 , 6  ! DRAFT  index 

DO  300  J=l,  12  IFrequencu  index 

READ  (COF)  ( C0EFF4  (  K,  J,  I,  L) ,  1  =  1,8) 

300  CONTINUE 

READ  (COF)  ( ( ARE AN ( L,  K ) ,  K=1 , 6 ) , L=1 , MSTA )  ISection  areas 

DO  6B8  L=1 , MSTA 

TYPE  687,  ( AREAN  ( L,  K  ) ,  K=1 ,  6  > 

688  CONTINUE 

DO  675  J= 1, 6 
TARE ( J ) =POSIT ( J ) 

675  CONTINUE 

687  FORMAT (IX, 6F10. 2 ) 


Section  4.0  READ  3D  ARRAY  FILE  CMAT3 
I F  ( MATF I L.  EQ.  'NONE')  RETURN 
C 

READ ( MAT )  NPT , NPAN 
DO  500  1=1, 3 

READ ( MAT )  ( AN ( J, I ) , J=1 , NP AN ) 

500  CONTINUE 

READ ( MAT )  ( XP AN ( J ) , J= 1 , NP AN ) 

READ ( MAT )  ( YPAN( J ) , J=1 , NPAN ) 

READ ( MAT )  ( ZP AN ( J ) ,  J= 1 ,  NPAN ) 

READ (MAT)  ( AREAP ( J ) ,  J= 1 ,  NPAN ) 

DO  505  K=l, 6 

READ ( MAT )  ( PX ( JL,  K ) ,  JL=1 ,  NPAN ) 

505  CONTINUE 

DO  510  J=l, NPAN 

READ ( MAT )  ( EE ( J,  K ) , K=1 , NPAN ) 

510  CONTINUE 

DO  520  K=l,  6 

READ ( MAT  >  ( P ( J,  K > ,  J=1 ,  NPAN ) 

520  CONTINUE 
C 

CLOSE ( B IF ) 

CLOSE ( OFF ) 

CLOSE ( COF ) 

CLOSE (MAT) 

CLOSE ( 4 ) 

RETURN 

180  FORMAT  (5X, 15) 

190  FORMAT  (15) 

197  FORMAT (1H1/,81(  1H*  )  /,  '  INPUT  DATA  ECHO  ',T64, 


on 


C 


•*  '  rKUyKAH  bbX  '/  I  til  (  1 H*  J / / ,  33  (  1  H—  )  , 

+  ' C  B IF  3  DATA  FILE 32( 1H-)/) 

198  FORMAT (1H1/»B1< 1H* ) /  ,  '  INPUT  DATA  ECHO 
*  'PROGRAM  SSX ' /,  81 ( 1H* ) //,  33 ( 1H-) , 

* ' C  OFF  3  DATA  F I LE ' ,  32 ( 1 H- ) / ) 


196  FORMAT ( 1 X, A) 

199  FORMAT ( A ) 

200  FORMAT  (6F10. 2) 

201  FORMAT  <3F10. 2-15) 

202  FORMAT  (8F10.  0) 


203  FORMAT 
210  FORMAT 


(  12) 

( F  1 0.  2-  13-  5X,  F 1 0. 


2) 


T64, 


410  FORMAT 
412  FORMAT 
414  FORMAT 

416  FORMAT 

417  FORMAT 
420  FORMAT 
430  FORMAT 


(A) 

(4F10.  3,  13X,  12,  4X.  1 1 
OX,  15,  5X ,  'INPUT  OF 
( F6.  3,  2F7.  0,  16) 

( F7.  3,  2F10.  2,  16) 
(215,  F10.  2) 

(2F10.  2) 


) 

SHCP  TYPE  D  OFFSET  DATA') 


END 


SUBROUTINE  FINI 
C 

COMMON/ 10/ INPUT , OUTPUT, BIF, OFF, COF 
INTEGER  OUTPUT, BIF, OFF, COF 

COMMON  /STATS  /  NRHS<4),  DELTA,  HSUM,  HMIN,  HMAX,  TTO,  TT1 
COMMON  /TIME  /  TIME,  RAMP 

COMMON  /TIME  /  TO,  TSTART ,  TSTOP,  TOUTPT,  TSTEP,  ERR 
COMMON/SUMMARY/  NT,  YYBAR(IO),  YYRMS(IO),  YYMAX(IO),  YYMIN(IO) 

IF  (TT1.LE.  TTO)  GO  TO  100 
DELTA=TT1-TT0 
NRHS ( 1 )=NRHS< 1 )+l 
HMIN=AMIN1 (DELTA,  HMIN) 

HMAX=AMAX 1 ( DELTA, HMAX ) 

100  HSUM=HSUM/FLuAT(NRHS( 1 ) ) 

C  **«•  Print  execution  statistics 

WRITE  (OUTPUT,  110)  NRHS,  DELTA,  HMIN, HSUM, HMAX, TSTEP,  ERR 
C  Compute  response  statistics 

DO  200  1=1, 10 

YYB AR ( I ) =YYBAR ( I ) /FLOAT ( NT ) 

ARG I = ( YYRMS ( I ) /FLOAT ( NT > -YYB AR ( I )**2) 

IF  ( ARGI .  LT.  0 )  YYRMS  (  I  )  =0. 

IF  ( ARGI .  GE.  0.  )  YYRMS  (  I  )  =SQRT  (ARGI  ) 

C  YYRMS ( I ) =  SGRT ( YYRMS ( I ) /NT-YYBAR ( I )**2) 

200  CONTINUE 

C  Print  response  statistics 

WR  I TE  ( OUTPUT ,201)  '  RMS  ',  YYRMS 

WR I TE ( OUTPUT ,201)  '  MEAN  ' , YYBAR 

WR ITE ( OUTPUT, 201 )  '  MAX  ' , YYMAX 

WR I TE ( OUTPUT,  201 )  '  MIN  ' . YYMIN 

C 

RETURN 

C 

110  FORMAT  (76H0***  TIME  INCREMENT  :  FWD  NO  STE 

*P  BACK  TOTAL/ 

*  36H  ***  NUMBER  OF  COMPUTATIONS  OF  RHS  :,4I10/36H  ***  FINAL  V 

1ALUE  OF  TIME  INCREMENT  : , 1PG13. 4/38H  ***  MINIMUM  VALUE  OF  TIME  INC 
2REMENT  :  , G13.  4/38H  ***  AVERAGE  VALUE  OF  TIME  INCREMENT  : , G13. 4/38H 
3  ***  MAXIMUM  VALUE  OF  TIME  INCREMENT  : , G13. 4/42H  ***  FLAG  VALUE,  F 
41,  (PLUS  1.0  EXPECTED)  :  ,  G13.  4/33H  ***  FINAL  VALUE  OF  ERROR  LIMIT 
5:  ,  G13.  4  ) 


201  FORMAT (A8,  4X,  4  (  1  X,  FI  1 .  4  ) ,  3F 1 2.  4,  2X,  El  5.  5,  2X,  F12.  4) 
C 

END 


c 


SUBROUTINE  PREPARE 


(' 


( 


( 


( 


COMMON  /C  /  C (3, 3) 

COMMON/ 10/ INPUT / OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT, BIF, OFF, COF 
COMMON  /  / 

1 
2 

3 

4 

COMMON  /  / 


C0MM0N/C0EFF4/C0EFF4 < 6,  12,  8,  25),  AREAN (25,  6) 


COMMON 

/FORCE 

/ 

XF,  YF,  ZF,  XM,  YM,  ZM 

REAL  FORCE ( 6 ) 

EQUIVALENCE  ( FORCE ( 1 ), XF ) 

COMMON 

/LHS 

/ 

Y(  13) 

COMMON 

/MASS 

/ 

RHO,  G,  GAMMA 

COMMON 

/MAGS 

/ 

D I  SPL,  SMASS,  XCG,  YCG,  ZCG, 

COMMON 

/MASS 

/ 

AMX,  AMY,  AMZ,  RADII  (6) 

PMI  (3,  3) 

COMMON 

/RESIST/ 

SPEED 

COMMON 

/TIME 

/ 

TIME,  RAMP 

COMMON 

/TIME 

/ 

TO,  TST  ART ,  TSTOP,  TOUTPT,  TSTEP,  ERR 

COMMON 

/V 

/ 

VX,  VY,  VZ 

COMMON/PREXIN/TPSTART, TPSTOP,  TPRAMP, BGX, SMX, BGY,  SMY,  TSCALE 

REAL  X AFT ( 25 ) ,  YAFTC25),  XFWD<25>,  YFWD(25> 

EQUIVALENCE  ( XFWD ( 1 ) , XPROF ( 1 ) ) ,  ( YFWD ( 1 ) , YPROF ( 1 ) ) 

EQUIVALENCE  ( XAFT ( 1 ) ,  XPROF < 26) ) ,  C YAFT ( 1 ) , YPROF (26) ) 
EQUIVALENCE  ( X XFWD,  XPROF ( 51 )) ,  ( XXAFT ,  YPROF ( 51 ) ) 

COMMON/ SX PROP /  SEGMAS ( 26 ) , SEGMOX ( 26 ) , STRMAS ( 26 ) ,  STRMOM ( 26 ) . 

*  STRMOX ( 26 ) ,  XBAR ( 26 ) »  YBAR (26 ) , 

*  SEGWT ( 26 ) ,  NWTSTA 
DATA  MAXSTA/25/ 

DATA  MAXPTS/25/ 

DATA  AMX/O.  /,  AMY/O.  /,  AMZ/O.  / 

DATA  RAD  /O.  01745  32925  19943/ 

GAMMA=RHO*G 
SMASS=D I SPL/G 
D ISPL=D I SPL /GAMMA 
RAMP=TSTART-TO 
AMX  =  1.  O+AMX 
AMY=1 .  O+AMY 
AMZ=  1 .  O+AMZ 


C  •***  From  given  offsets  on  port  side,  assign  symmetrical 
C  offsets  on  starboard  side 

DO  10  J=1 , MSTA 
N=LPTS( J) 

NP=N 

DO  50  1  =  1,  N 
NP=NP+ 1 
NM=N-I+1 

YOFF ( NP , J ) =YOFF ( NM,  U> 

ZOFF (NP, J ) =-Z0FF ( NM,  J) 

50  CONTINUE 

60  IF  ( ZOFF ( NP , J ) .  NE.  ZOFF ( 1 ,  J > )  GO  TO  70 
IF  ( YOFF (NP, J > .  EQ.  YOFF < 1 ,  J ) )  GO  TO  80 
70  NP=NP+1 

YOFF ( NP , J ) =YOFF ( 1 , J) 

ZOFF ( NP , U)=ZOFF( 1, J) 

80  IF  (NP.  GT.  MAXPTS)  GO  TO  90 

IF  (NP.  GT.  1  )  GO  TO  20 
90  CONTINUE 

STPr  'ERROR' 

20  !_PTS  (  J  )  =NP 

10  r  jNTINUE 

c 

C  ***  Recompute  offset  coordinates  relative  to  the  center  of  mass 
DO  130  J=1 , MSTA 

XOFF ( J ) =-XOFF ( J ) — XCG 
N=LPTS ( J ) 

DO  120  1  =  1,  N 

YOFF ( I, J)=YOFF( I, J)-YCG 
ZOFF ( I , J)=ZOFF( I, J ) -ZCG 
120  CONTINUE 

130  CONTINUE 


NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR(20),  WVPHA(20), 
WN ( 20 ) ,  WNX ( 20 ) ,  WNZ ( 20 ) , 

CSKC20),  CCK ( 20 ) ,  CXK(20), 

C YK ( 20 ) ,  C  ZK ( 20 ) ,  XW(20> 

MSTA,  NPRQF,  NFWD,  NAFT,  LPTS(25>, 

XOFF  (  25  ) ,  Y0FF(25,  25),  Z0FF(25,  25), 

XPROF (51),  YPROF ( 51 ) 


C  ***  Consolidate  fore  t>.  aft  profile  coordinates  into  a  single 
C  pair  of  arrays 

NPROF=NFWD 

IF  (NFWD.  EQ.  0)  GO  TO  150 
X=XOFF ( 1 ) 

DO  140  1=1, NFWD 

•  XFWD-C  I  >^XFWW  I)+X  -  -  _ ~  ■  —  __  .  . 

YFWD ( I ) =YFWD ( I ) -YCG 
140  CONTINUE 

IF  (NFWD.  NE.  1)  GO  TO  150 

NPR0F=0 

XXFWD=XFWD< 1 ) 

150  IF  (NAFT.  EQ.  0)  GO  TO  190 
X=xnFF ( MSTA ) 

XXAFT=X— XAFT ( 1 ) 

IF  (NAFT. EQ. 1)  GO  TO  190 
J=1 

IF  (NPROF.  EQ.  0)  GO  TO  160 
IF  (XXAFT. NE.  XFWD(NPROF) )  GO  TO  160 
IF  ( YPROF ( NPROF ).  EQ.  ( YAFT ( 1 ) -YCG > )  J=2 
160  DO  170  I=J, NAFT 
NPR0F=NPR0F+1 
XPROF ( NPROF ) =X— XAFT ( I ) 

YPROF ( NPROF ) =YAFT ( I )-YCG 
170  CONTINUE 

IF  (XFWD( 1 ).  NE.  XFWD( NPROF )  )  GO  TO  180 
IF  ( YFWD  ( 1  >.  EQ.  YFWD  (NPROF )  >  GO  TO  190 
180  NPR0F=NPR0F+1 

XFWD ( NPROF ) — XFWD ( 1 ) 

YFWD ( NPROF ) =YFWD ( 1 ) 

190  CONTINUE 
C 

C  *■**  This  section  loads  certain  str i p-assoc iated  mass  and  inertial 
C  arrays  using  mass/ inert ia  1  data  from  segment-assoc iated  arrays 

C  Load  strip  &  segment  associated  inertial  arrays 

DO  106  1=1 , NWTSTA 
SEGMAS ( I ) =SEGWT ( I ) /G 
106  CONTINUE 
VX=SPEED 
C 

C  ***  Load  the  inertia  matrix 

PMI ( 1,  1 )=SMASS*RADI I ( 1 )**2 

PM I (2, 2)=SMASS*RADII (2)**2 

PMI (3,  3 ) =SMASS*RAD 11(3) **2 

PMI (2, 1 )=— ABSCRADII (4) ) *RADI 1(4) *SMASS 

PM I ( 1 , 2 ) =PM I ( 2,  1) 

PMI (3,  1 ) =-ABS ( RADI  1(5) ) *RADI I ( 5 ) *SMASS 
PMI (1,  3>=PMI (3,  1 ) 

PMI (2, 3 ) =-ABS (RAD 1 1 (6) )*RADI 1(6) *SMASS 
PMI (3, 2)=PMI (2, 3) 

C 

C  ***  Compute  wave  no's  and  max  wave  amplitude 
WVSUM=0.  O 

IF  (NWAVES.  EQ.  0)  GO  TO  260 
DO  250  K=l, NWAVES 

WVPHA ( K ) =R AD*WVPHA ( K ) 

WN(K)=WUFRE(K)**2/G 
ARG=WVD IR ( K  >  *RAD 
WNX ( K ) =WN ( K ) *COS ( ARG ) 

WNZ ( K ) =WN ( K ) *SIN ( ARG ) 

WVSUM=WVSUM+ABS ( WVAMP ( K ) ) 

250  CONTINUE 
260  CONTINUE 
C 

C  ***  Convert  degrees  to  radians 
DO  270  1=4,  6 

Y( I )=Y( I >*RAD 
Y( I+6)=Y( I+6)*RAD 
270  CONTINUE 
C 

C  ***  Convert  initial  linear  velocities  from  ship  coordinates 
C  fixed  coordinates. 

CALL  ROTATE  (Y) 

VX=Y ( 7 ) 

VY=Y ( 8 ) 

VZ=Y ( 9 ) 

Y ( 7 ) =C ( 1 ,  1 ) *VX+C (2,1) *VY+C (3,1)  *VZ 
Y( 8 ) =C ( 1 , 2 ) *VX+C ( 2,  2 ) *VY+C ( 3, 2)*VZ 
Y(9)=C( 1,  3)*VX+C(2,  3 ) *VY+C ( 3, 3)*VZ 


C 


ooonoo 


C  Divide  all  2-D  hudro.  coeffs  by  RHQ 

DO  110  L= 1 i MSTA 
DO  110  K=l,  6 
DO  110  J=l<  12 
DO  110  1  =  1-8 

COEFF  4  ( K-  J-  I-  L )  =C0EFF4  (  K-  J-  I-  L)/RHO 
110  CONTINUE 

*•**  Initialize  the  free  surface  for  special  pressure 
computations 

I F  (  TPSTOP .  GT.  5.  )  CALL  AFSR 

RETURN 
END 


auomju  i  iNt.  vut-rtc. 

COMMQN/MASS/RHO,  G,  GAMMA 
COMMON/MASS/DISPL,  SMASS,  XCG, YCG,  ZCC* 
*  AMXi  AMY.  AMZ,  RADI  1(6) 

COMMON/LHS/Y ( 13 ) 

WAVE  PROPERTIES.  . 


COMMON  / 


NWAVESi  WVSUM, 

WVAMP(20>,  WVFRE (20 ) »  WVDIR(20>.  WVPHA(20), 
WN ( 20  >  ,  WNXC20).  WNZ(20), 

CSK ( 20 ) ,  CCK ( 20 ) »  CXK(20), 

C YK ( 20 ) »  CZK(20),  XW(20) 


TABLE  OF  OFFSETS.  . 

COMMON  /  /  MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25>, 

l  XOFF  ( 25  )  i  Y0FF(25,  25),  Z0FF(25.  25)* 

l  XPROF ( 51 ) *  YPROF ( 51 ) 

COMMON/RESIST /SPEED 

COMMON/SIGMA  /  NK, SIGMA(24> ,  SIGMAO*  ERRO,  0M(12> 
C0MM0N/C0EFF4/C0EFF4 ( 6,  12, 8, 25),  AREAN(25,  6) 

C0MM0N/C0EFFX/THAH(25, 21), TSAS(25, 21), TRAR (25, 21 ) .  TCCA(25,  21 > , 

►  THVH  ( 25,  21 ),  TSVS  ( 25,  21  >,  TRVR(25,  21  )*  TCCV(25,  21 ). 

Y  THAC X  ( 25,  21  ),  THVCX(25,  21 ),  TSACX(25,  21 ) ,  TSVCX  (25.  21 ), 

^  TRACX  (25,  21 ) ,  TCACX  (25,  21 )  *  THVCY (25,  21), 

►  ITP  ( 25 ) ,  TXP  (25),  IFP  (21  > .  FXP  (21 ) 

COMMON/OPTION/ JOBCO,  JOBFO(IO) 

COMMON/SXOMEG/ OMEGA X ( 3  > 

COMMON/DRFT 1 /  DRAFT 1 (6 ) 

DIMENSION  LI X ( 21 ) , FMUX (21 ) 

DATA  DEGREE/O.  01745  32925/ 


(Future  revision  here. . .  no  trim  now*  but  in 
next  revision,  the  options  should  include 
specifying  trim  CY(&)3  in  addition  to  draft 
as  an  initial  condition) 


TAVG=YCG-Y(2> 

TYPE  *,  '  TAVG=  ',  TAVG 
DO  20  JSTA=1 , MSTA 

CALL  TX I T (TAVG,  IT,  TX) 
I TP ( JST A ) = I T 
TXP ( JSTA ) =TX 
TYPE  *,  'IT,  TX  '*  IT,  TX 


! Draft 

!Loop,  over  stations 
'Get  index  te  mult. 


DO  10  K=1 , NWAVES 

FREX=ABS( (1. 0— COS(WVDIR ( K > *DEGREE ) *SPEED 

*WVFRE(K)/G)*WVFRE(K) )  iEncounter  freq. 

TYPE  *,  'Encounter  freq='*FREX 


NOTE:  We  are  using  the  wave  frequency  here —  not  the 
frequency  of  encounter. 


(counter. 


FREX=WVFRE ( K ) 


C 

C 

c 

c — 
ccc 


c 


c 

c 

c 

c 


c 


c 

c 

c 

10 

20 

c 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

c 


* 


c 

c 

c 


CALL  FXIF(FREX,  IF,  FX)  !Get  index  Sc  mult. 

IFP ( K ) =1 F 
FXP ( K ) =FX 

THAH( JSTA, K)=C0X  (  IT,  TX,  IF,  FX,  1,  JSTA) 

TSAS ( JSTA,  K)=C0X  (  IT,  TX,  IF,  FX,  2,  JSTA) 

TRAR(  JSTA,  K>=C0X  (  IT,  TX,  IF,  FX,  3,  JSTA) 

TCCAC  JSTA,  K)=C0X  (  IT,  TX,  IF,  FX,  4,  JSTA) 

THVH(  JSTA,  K)=C0X  (IT,  TX,  IF,  FX,  5,  JSTA) 

TSVS( JSTA,  K  >  =C0X  (  IT,  TX,  IF,  FX,  6,  JSTA) 

TRVRCJSTA,  K  >  =C0X  (IT,  TX,  IF,  FX,  7,  JSTA) 

TCCV(  JSTA,  K)=C0X(  IT,  TX,  IF,  FX,  S,  JSTA) 


Spatial  derivatives  in  x-direction 

THACX(  JSTA,  K)=COXDXP<  IT,  TX,  IF,  FX,  1,  JSTA) 
TSACX(  JSTA,  K)=COXDXP  (  IT,  TX,  IF,  FX,  2,  JSTA) 
TRACX(  JSTA,  K  )  =COXDXP  (  IT,  TX,  IF,  FX,  3,  JSTA) 
TCACX(  JSTA,  K)=COXDXP<  IT,  TX,  IF,  FX,  4,  JSTA) 

THVCX(  JSTA,  K  )  =COXDXP  (IT,  TX,  IF,  FX,  5,  JSTA) 
TSVCX(  JSTA,  K  )  =COXDXP  (IT,  TX,  IF,  FX,  6,  JSTA) 
TRVCX(  JSTA,  K  )  =COXDXP  (  IT,  TX,  IF,  FX,  7,  JSTA) 
TCVCX(  JSTA,  K  )  =COXDXP  ( IT,  TX,  IF,  FX,  S,  JSTA) 

CONTINUE 

CONTINUE 


For  ship  motion  related  hydro  coef's,  we  will 

us,  as  a  default  frequency  the  frequency  associated 

with  the  first  wave  Cwvfred)!. 

Future  revision:  the  default  frequencies  should 
be  the  natural  period  in  heave,  sway,  and  roll. 


FRSI=ABS( (1.  O-COS ( WVDIR ( 1 ) ^DEGREE ) *SPEED 

*WVFRE(1)/G)*WVFRE(1))  lEncounter  freq. 

OMEGAX( 1 )=FRSI 
OMEGAX ( 2 ) =FRS I 
OMEGAX ( 3 ) =FRS I 

CALL  FXIF(FRSI, IF, FX) 

DO  30  JSTA=1 <  MSTA 

FXP (21 ) =FX 
IFP (21 ) =IF 
TXP ( 21 ) =TX 
ITP (21 )=IT 


C 


THAH(  JSTA,  21  >=COX(  IT,  TX,  IF,  FX,  1,  JSTA) 
TSAS  (JSTA,  21  >=COX  (  IT,  TX,  IF,  FX,  2,  JSTA) 
TRAR( JSTA,  21 >=COX ( IT, TX,  IF, FX, 3, JSTA) 


TCCA(  JSTA,  21 )=COX( IT,  TX,  IF,  FX,  4,  JSTA) 

C 

THVH( JSTA,  21  )=COX(  IT,  TX,  IF,  FX,  5,  JSTA) 

TSVSC  JSTA,  21  )=COX(  IT,  TX,  IF,  FX,  6,  JSTA) 

TRVR< JSTA,  21  )=COX(  IT,  TX,  IF,  FX,  7,  JSTA) 

TCCV< JSTA,  21  )=COX(  IT,  TX,  IF,  FX,  8,  JSTA) 

C 

THACX(  JSTA,  21  )=COXDXP<  IT,  TX,  IF,  FX,  1,  JSTA) 

TSACX  (JSTA,  21  )  =COXDXP  (IT,  TX,  IF,  FX,  2,  JSTA) 

THVCX( JSTA,  21  >=COXDXP(  IT,  TX,  IF,  FX,  5,  JSTA) 

TSVCX  <  JSTA,  21  )=COXDXP  ( IT,  TX,  IF,FX,  6,  JSTA) 

C 

30  CONTINUE 

RETURN 
END 

FUNCTION  COX  (  IT,  TX,  IF,  FX,  ITYPE,  JSTA) 

ccc 

CCC  This  function  subprogram  returns  the  2-D  hydrodynamic 

CCC  coefficient  of  a  particular  TYPE  (1  thru  8  where  1  is 

CCC  HAH,  2  is  SAS,  and  so  on)  keyed  on  ITYPEj  for  a  par- 

CCC  ticular  station,  keyed  on  ISTA.  Provided  to  the  function 

CCC  is  the  draft  index  (IT)  and  draft  interpolation  multi- 
CCC  plier,  the  frequency  index  (IF)  and  the  freqency  inter- 
CCC  polation  multiplier  <FX). 

CCC 

CCC  This  function  performs  a  two-dim  linear  interpolation 
CCC  using  four  values  from  the  big  2-D  coefficient  array 
CCC  C0EFF4<  ,  ,  ,  ,  ).  .  . 

CCC 

COMMON  /C0EFF4/  C0EFF4  ( 6,  1 2,  8,  25  ) ,  AREAN  (25,  6 ) 

CCC 

A1=C0EFF4( IT  ,  IF  ,  ITYPE,  JSTA) 

A2=C0EFF4( IT+1,  IF  ,  ITYPE, JSTA) 

A3=C0EFF4 ( IT  ,  IF+1 ,  ITYPE, JSTA > 

A4=C0EFF4( IT+1,  IF+1,  ITYPE,  JSTA) 

CCC 

B12=A1+(TX*CA2-A1 ) ) 

B34=A3+ ( TX* ( A4-A3  > ) 

CCC 

COX=B 12+ ( FX* ( B34-B 12 ) ) 

CCC 

RETURN 

END 

SUBROUTINE  TXIT(TAVG, IT, TX ) 

CCC 

CCC  This  routine  determines  the  draft  index  (IT) 

CCC  and  draft  interpolation  multiplier  (TX)  given 

CCC  a  value  for  draft  (TAVG). 

CCC 

C0MMQN/DRFT1 /  DR AFT 1 (6) 

CCC 

IF  (TAVG.  GT.  DRAFT1 (6) )  THEN  !Section  immersed 

IT=5 
TX=1 . 0 

ELSE  IF  (TAVG.  LT.  DRAFT1 ( 1 ) )  THEN  lEmerged  section 
I  T=  1 
TX=0.  0 
ELSE 

DO  10  JJ= 2,  6 

IF (TAVG-DRAFT1 ( JJ) )  12,11,10 
11  CONTINUE 


i  r\  —  w  .  w 

IT=JJ 
GO  TO  13 
CONTINUE 

TX= ( TAVG-DRAFT 1  (  JJ-1 )  )  /  ( DRAFT  1  (  J J )  -DnV  rrT  1  ( JJ--1  >  ) 
IT=JJ-1 
GO  TO  13 
CONTINUE 
1  CONTINUE 

END  IF 
RETURN 
END 

SUBROUTINE  FX IF<FREX, IF* FX ) 

C.C  This  routine  determines  the  freq.  index  (IF) 

CC  and  freq.  interpolation  multiplier  (FX)  given 

,  CC  a  value  for  frequency  (FREX). 

i?  C 

COMMON  /SIGMA/  NK,  S  IGMA(  24  ) ,  SIGMAOi  ERRC.  ON  (  1 

IF  (FREX.  GT.  OM(  1 1  )  )  THEN 
IF=1 1 
FX=1 .  0 
ELSE 

DO  10  JJ=2,  12 

IF ( FREX-OM ( J J ) )  12.  1 1  *  10 

CONTINUE 

FX=0.  O 

IF=JJ 

GO  TO  13 

CONTINUE 

FX  =  ( FREX-OM (JJ-1 ) >/(0M( JJ>-OM( JJ-1 >  > 

IF=JJ-1 
GO  TO  13 
CONTINUE 
CONTINUE 
END  IF 
RETURN 
END 

FUNCTION  COXDXdT.TX,  1F,FX,L,J> 


1 

2 


COMMON  /  /  NWAVES.  WVSUM. 

WVAMP ( 20 ) »  WVFRE ( 20 ) .  UUDIR(20),  WVPHA(20) 
WN ( 20 ) >  WNX ( 20 ) .  WNZ ( 20  > . 

CSK ( 20 ) .  CCK ( 20 ) .  CXK(20), 

C YK ( 20 ) .  C  ZK ( 20 ) .  XW(20) 

COMMON  /  /  MSTA,  NPROF .  NFWD.  NAFT.  LPTSC25), 

XOFF  (25  ) »  YOFF  (  25.  25  ) .  Z0FF(25,25), 

XPROF (51).  YPROF ( 51 > 

COMMON/OPTION/ JOBCO.  JOBFO(IO) 

COMMON/ETA/YC.  XK ( 20 ) 

COMMON /TEMPSTA/DXFWD.  DXAFT, TSTA(25) 


I 


IF  ( J.  EQ.  1  )  THEN 
CF=0. 

ELSE 

CF=COX(  IT,  TX,  IF,  FX,  L,  J-l  ) 
AF=ARX( IT,  TX, J-l ) 


noon 


CF=CF*AF 
END  IF 

CM=COX< IT,  TX,  IF,  FX,  L,  J) 
AM=ARX(  IT,  TX,  J) 

CM=CM*AM 

IF<  J.  EQ.  MSTA)  THEN 
CA=0. 

ELSE 

CA=COX<  IT,  TX,  IF,  FX,  L,  J+l  ) 
AA=ARX(  IT,  TX,  J+l  ) 

CA=CA*AA 
END  IF 

C1=(CM-CF)/DXFWD 
C2= ( CA— CM ) /DX AFT 

COXDX=(.  5/ AM )  *  <  C 1+C2 ) 


RETURN 

END 

FUNCTION  COXDXP<  IT,  TX,  IF,  FX,  L,  J) 


COMMON 

1 

2 

3 

4 

/ 

/ 

NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE<20>,  WVDIR(20),  WVPHAC20), 
UN ( 20 ) ,  WNX ( 20 ) ,  WNZ(20), 

CSK ( 20 ) ,  CCK ( 20 ) ,  CXK<20>, 

CYK<  20 ) ,  CZK(20),  XW(20) 

COMMON 

1 

2 

/ 

/ 

MSTA,  NPROF,  NFWD,  NAFT,  LPTS<25), 

XOFF  ( 25 ) ,  Y0FF(25,  25),  Z0FF(25,  25), 

XPROF  <  51 ) ,  YPROF ( SI ) 

IF<J.  EQ.  1)  THEN 
CF=0. 

DXFWD=XQFF< J+l )-XQFF< J) 
ELSE 

CF=COX  <  IT,  TX,  IF,  FX,  L,  J-l) 
AF=ARX (IT,  TX, J-l) 

CF=CF*AF 

DXFWD=XOFFC J)-XOFF< J-l > 
END  IF 

CM=COX(IT,  TX,  IF,  FX,  L,  J) 
AM=ARX( IT, TX,  J) 

CM=CM*AM 

IF<  J.  EQ.  MSTA)  THEN 
CA=0. 

DXAFT=XOFF( J)-XOFF( J-l ) 
ELSE 

CA=COX(  IT,  TX,  IF,  FX,  L,  J+l ) 
AA=ARX< IT, TX, J+l ) 

CA=CA*AA 

DXAFT=XQFF( J+l )-XOFF( J) 
END  IF 

C1=(CM-CF) /DXFWD 


C2= ( C A-CM ) /DXAFT 
C 

C  COXDXP=(.  5/AM  >  ■#•  ( C  1+C2  ) 

TDX=DXFWD+DXAFT 
DC  X=CA-CF 

CQXDXP=( DCX/TDX ) /AM 
C 

RETURN 

END 

FUNCTION  ARX (  IT<  TX »  J ) 

ccc 

COMMON  /C0EFF4/  C0EFF4  ( 6,  1 2,  8,  25  > ,  AREAN  ( 25.  6 ) 

CCC 

ccc 

ccc 

B2=AREAN(J> IT+1) 

B 1 =AREAN ( Ji  IT) 

ARX=B1  +  (TX*(B2~B1  >  > 

CCC 

RETURN 

END 


FUNCTION  ETABAR(I) 


C 

Cl  ETABAR  RETURNS  THE  WAVE  ELEVATION  (ABSOLUTE  COORDINATES)  ABOVE 
Cl  A  POINT  IN  THE  SHIP  COORDINATE  SYSTEM. 

Cl 

C2  POINT  IS  ON  THE  SHIP  CENTERPLANE. 

C2  THE  COORDINATES  OF  THE  POINT  ON  THE  SHIP  ARE.  . 

C2  (  XPROF(I),  YPROF(I),  -ZCG  ) 

C2 

C5 

C5  PHYSICAL  CONSTANTS.  . 

COMMON  /MASS  /  RHO,  G,  GAMMA 
C5 

C5  SHIP  MASS  PARAMETERS.  . 

COMMON  /MASS  /  DISPL,  SMASS.  XCG,  YCG*  ZCG, 

1  AMX,  AMY,  AMZ,  RADII  (6) 

C5 

C5  ROTATIONAL  INERTIA  MATRIX  FOR  FIXED  MASS.  . 

COMMON  /MASS  /  PMI<3,3) 

C5 

COMMON  /TRIG  /  CTHETA,  STHETA,  CPHI,  SPHI,  CPSI,  SPSI 
C5 

C5  WAVE  PROPERTIES.  . 

COMMON  /  /  NWAVES,  WVSUM, 

1  WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR<20),  WVPHA(20), 

2  WN ( 20 ) ,  WNX ( 20 ) ,  WNZ(20>, 

3  CSKC20),  CCK ( 20 ) ,  CXK(20), 

4  C YK  <  20 ) ,  CZK  <  20 ) ,  XW(20) 

C5 

C5 

C5  TABLE  OF  OFFSETS.  . 

COMMON  /  /  MSTA,  NPROF,  NFWD,  NAFT,  LPTS(23>, 

1  XOFF  ( 25 ) ,  Y0FF(25,  25),  Z0FF(25,  25), 

2  XPROF ( 51 ) ,  YPROF ( 51 > 

C5 

C3 


ETABAR=0.  0 

IF  (NWAVES.  EQ.  0)  RETURN 
X 1 =XPROF ( I ) 

Y1=YPR0F( I >*CTHETA+ZCG*STHETA 
Z1=YPR0F( I >*STHETA-ZCG*CTHETA 
DO  110  K=l, NWAVES 

ARG=( Xl-XW(K) )*CXK(K)+Y1*CYK(K)+Z1*CZK(K) 

ETABAR=COS ( ARG ) *WVAMP ( K ) +ETABAR 
110  CONTINUE 
RETURN 
C 

END 

FUNCTION  ETAF  (ZT) 

C 

Cl  FIND  COORDINATE  OF  WAVE  SURFACE. 

Cl 

C5 

C5  WAVE  PROPERTIES.  . 

COMMON  /  /  NWAVES,  WVSUM, 

1  WVAMP ( 20 ) ,  WVFRE ( 20  > ,  WVDIR(20>,  WVPHA(20), 

2  WN ( 20 ) ,  WNX (20),  WNZ(20>, 

3  CSK ( 20 ) ,  CCK ( 20 ) ,  CXK(20), 

4  CYK ( 20  > ,  CZK (20),  XW(20) 


C5 

C5 


DATA  FOR  THE 
COMMON  /ETA 

COMMON  /CT 


COMPUTATION  OF  THE 
/  YC,  XK ( 20 ) 

/  CT  <  3,  3 ) 


WAVE  SURFACE  ELAVATION. 


A=-YC 
B  =C  T  ( 2 1  2  ) 

IF  (NWAVES.  EQ.  0  >  GO  TO  120 
DO  110  K=l, NWAVES 

ARG=ZT*C  ZK ( K ) +XK ( K ) 

A=COS  <  ARG ) *WVAMP ( K  >  +A 
B=SIN(ARG)*WVAMP  (K)*CYK(K)+B 
CONTINUE 
ETAF=A/B 
RETURN 


END 

FUNCTION  ETAY ( J,  K ) 

COMMON  /TRIG  /  CTHETA,  STHETA,  CPHI,  SPHI,  CPSI,  £ 

COMMON  /  /  NWAVES,  WVSUM, 

L  WVAMP  (  20  ) ,  WVFRE  (  20  ) ,  WVDIR  ( 20 ) »  WV, 

l  WN ( 20 ) ,  WNXC20),  WNZ(20), 

3  CSK  <  20  > ,  CCK ( 20 ) »  CXK(20), 

1  C  YK  (  20  ) ,  C  ZK  (  20  > ,  XWC'.O) 

COMMON  /  /  MSTA,  NPROF ,  NFWD,  NAr T #  LPTSC25), 

L  X0FFC25),  Y0FFC25,  25),  Z0FF(23,25>, 

2  XPROF ( 51 ) ,  YPROF (51) 

ETAY=0. 

IF  (NWAVES.  EQ.  0)  RETURN 
X1=X0FF ( J  > 

Y 1  =0. 

Z1=0. 

ARG=( Xl-XW(K) )*CXK(K)+Y1*CYKCK)+Z1*CZK(K) 

ETAY=COS ( ARG ) *W VAMP ( K ) 

RETURN 


CPHI,  SPHI,  CPSI,  SPSI 


COMMON 


WVPHA ( 20 ) , 


c 


SUBROUTINE  FOLIOl 


10 

20 

C 

100 

110 


COMMON/ 10/ INPUT,  OUTPUT,  BIF,  OFF,  CDF 
INTEGER  OUTPUT,  BIF,  OFF,  COF 
COMMON  /SIGMA  /  NK,  SIGMA(24),  SIGMAO, 
C0MM0N/DRFT1/DRAFT 1(6) 

COMMON/ 1 OF  I LE/  OFF IL, B IFIL, COFIL 

COMMON/HEAD/TITLE 

CHAR AC TER *30  TITLE 

COMMON/COEFF4/COEFF4 ( 6,  12,  8,  25>,  AREAN ( 25, 


ERRO,  OM  < 12  > 


COMMON 


COMMON 


COMMON 

COMMON 

COMMON 

COMMON 

l 

COMMON 

COMMON 


/DAMP 

/LHS 

/MASS 

/MAS3 

/MASS 


NWAVEG,  WVSUM, 

WVAMP  (  20  ) ,  WVFRE  (  20  ) ,  WVDIR(20),  Wt 
WN ( 20 ) ,  WNX ( 20 ) ,  WNZ  <  20 ) , 

CSK  <  20 ) ,  CCKC20),  CXKC20), 

C YK ( 20 ) ,  CZK ( 20 ) ,  XW(20) 

MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25>, 
XOFF  (25  ) ,  Y0FF(25,  25),  Z0FF<25,  25), 
XPROF ( 51 ) ,  YPRQF ( 51 ) 

DAMPL(6),  DAMPQ(6> 

Y(  13) 


WVPHA ( 20 ) , 


RHO,  G,  GAMMA 
DISPL,  SMASS, 
AMX,  AMY,  AMZ, 
PMI  (3,  3) 

SPEED 


XCG,  YCG, 
RADII (6) 


COMMON  /RESIST/  SPEED 
COMMON /OPT ION/ JOBCO, J0BF0C10) 

COMMON  /TIME  /  TIME,  RAMP 
COMMON  /TIME  /  TO,  TSTART ,  TSTOP,  TOUTPT,  TSTEP,  ERR 
COMMON/S XPR OP /  SEGMAS(26>, SEGM0X<26>, STRMAS < 26 ) , STRMOM (26 ) , 
*  STRMOX C  26 ) ,  XB AR ( 26 ) , YB AR ( 26 ) , SEGWT ( 26 ) , NWTSTA 

REAL  POS I T ( 6 ) ,  VELOC ( 6 ) 

EQUIVALENCE  (POSIT ( 1 ), Y( 1 )) ,  < VELOC ( 1 ) , Y ( 7 ) ) 


WEIGHT=SMAS5*G 

WR I TE ( OUTPUT , 100)  TITLE 

WRITE  (OUTPUT,  110)  WEIGHT,  RADI  1(1),  RADII  (2),  XCG,  RADI  I  ( 3 ) , 

*  YCG,  RADII  (4),  ZCG,  RADI  I  (5),  RADI  I  (6) 

WR  I  TE  ( OUTPUT,  1 20 )  DAMPL  (  1  ) ,  DAMPQ  (  1  ) ,  SPEED, 

*  (DAMPL  (I),  DAMPQ  (I),  1=2,  6) 

WRITE (OUTPUT,  130)  ( POSIT ( I ) ,  VELOC ( I ) ,  1  =  1, 6) 

WRITE (OUTPUT,  140)  TSTART,  TSTOP, TOUTPT, TSTEP 
WRITE (OUTPUT,  160)  RHO,  G 

WR I TE ( OUTPUT ,  165)  JOBCO,  ( JOBFO ( I ) ,  1  =  1, 3) 

WRITE (OUTPUT, 100)  TITLE 
WR ITE ( OUTPUT , 150) 

DO  10  1=1 , NWAVES 

WRITE (OUTPUT,  155)  I,  WVAMP ( I ) , WVFRE ( I ) , WVDIR ( I ), WVPHA( I) 
CONTINUE 

WRITE (OUTPUT,  170) 

DO  20  1=1, NWTSTA 

WRITE (OUTPUT,  175)  I, SEGWT ( I ) , SEGMOX(I), YBAR ( I ) 

CONTINUE 

WR ITE ( OUTPUT ,  100)  TITLE 


FORMAT(  1H1, 80(  1H=) /,  IX,  A,  T55,  'PROGRAM  SSX  (Version  1.0)'/, 
*81 ( 1 H= ) / / ) 

FORMAT ( 28 ( 1H-),  'Inertial  Chara c t er i s t i c s  ' , 2? ( 1H- > /, 

*  T48,  9(lH->,  'GYRADII  ',  8(lH->/, 
*T5,  'WEIGHT  ',  F 1  5.  2,  2X,  'L.  TONS',  T48,  'Kx  x  ' ,  4X,  F10.  3,  5X,  'f  t  '/, 

*  T48,  'Kuu ',  4X,  F10.  3,  5X,  'ft '/, 
*T5,  'XCG  ',  10X,  F10.  3,  4X,  'f  t  ',  T48,  'Kz  z  ' ,  4X,  F10.  3,  5X,  'f  t  '/, 


120 


*T5,  ' YCG  ' ,  10X,  F10.  3,  4X.  'ft',  T48.  'Kx  u  ' ,  4X.  F10.  3,  5X,  'ft'/, 

*T5,  '  ZCG  ' .  lOx,  F10.  3,  4x,  'ft',  T48,  'Kxz',4X,F10.  3,  5X,  'ft'/, 

*  T4Q,  'Kui  ',  4X»  F10.  3,  5X ,  'ft'/,40(2H  -)/) 
FORMAT ( T5,  8 ( 1 H- )  ,  'DAMPING  COEFF I C I  ENTS ' ,  8 ( 1 H- ) ,  T48, 

*  ' - OPS  DATA - '/, 

*13X,  '(user  specified)'/, 

*T5,  'MOTION'.  7X,  'LINEAR ',7X,  'QUADRATIC'/, 

*T5,  ' - ',  4X ,  ' - ',  5X.  ' - '/, 

*T5,  'SURGE',  2  (  5X ,  E 1  O.  4),  T48,  'SPEED',  5X,  F6.  2/, 

*T5,  'HEAVE  ',  2(  5X,  E10.  4  ) /, 

*T5,  'SWAY  ',  2(5X,  E10  4) /, 

*T5,  'ROLL  ',  2(5X,  ElO.  4)/, 

*T5,  'YAW  ',  2(5X,  ElO.  4)/. 

*T5,  'PITCH',  2(5X,  ElO.  4)//> 

130  FORMAT ( 32 ( 1 H- ) ,  'Initial  Cond  i  t  i  ons ',  31  (  1H- > //, 

*15,  1 1 ( 1H- > ,  'POSITION  ',  1 1  (  1H-).  T 48,  10(  1H-) .  'VELOCITY  ',  10 ( 1H-)  /, 

*T5,  'X(CG)  ',  1 1  X ,  F10.  3,  2X,  'ft',  T48,  'SPEED',  5X,  F10.  3,  2X.  'ft/sec  '/, 

*T5,  'Y(CG)  ',  11X,  F10.  3,  2X.  'ft'.  T  48,  'HEAVE',  5X,  F10.  3,  2X,  'ft/sec'/, 

*T5,  'Z(CG)  ',  11X,  F10  3,  2X,  'f  t  ',  T48,  'SWAY  ',  5X,  F10.  3,  2X,  'ft/sec'/, 

*T5,  'ROLL  ',  11X.F10,  3,  IX,  'deg',  T48,  'ROLL  ',  <bX,  F10.  3,  2X,  'deg/sec'/, 

*15,  'YAW  ',  1 1  X,  F  1  0.  3,  IX,  'deg',  T48,  'YAW  ',  7X,  F10.  3,  2X,  'deg/sec'/, 
*T5,  'PITCH',  1 1  X ,  F 1 0 .  3,  IX,  'deg'.  T48,  'PITCH',  5X,  F10.  3,  2X, 

* 'deq/sec  '//) 

140  FORMAT ( 34 ( 1H— ) ,  'Run  Parameters ', 33( 1H-) //, 

*T5,  'SIMULATION  P AR AMETERS ' ,  T48,  'JOB  OPTIONS'/, 

*T5,  21  (  1H-) ,  T 48,  1  1  (  1H-  >  /  , 

*T5,  '  TIME  (START  )  ',  3X,  F8.  2/, 

*15,  'TIME  (  END  )  ',  5X,  F8.  2/, 

*T5,  'OUTPUT  DT',5X,F8  2/, 

*15,  '  INTEG.  DT  ',  5X,  FB.  2/,  81  (  1H-  )  //  ) 

150  F0RMAT(33( 1H-) ,  'WAVE  COMPONENTS ', 33 ( 1 H- ) //, 

*T5<  'WAVE'.5X,  'AMPLITUDE ',  5X,  'FREQUENCY ',  5X.  'DIRECTION', 

*5X,  'PHASE  '/, 

#T5,  ' - ' ,  5X,  ' - ' ,  5X ,  ' - ',  5X,  ' - ', 

^  ^  %  ,  ' _ *  ) 

155  FORMAT  ( T7 ,  12,  T16,  F6.  2,  T30,  F6.  2,  T44,  F7.  2,  T55,  F7.  2) 

160  FORMAT( //31 ( 1H-) ,  'MISCELLANEOUS  VALUES '» 30( 1H-) //. 

*T5,  'RHO  ',  5X,F10.  6/.T5,  'G  ',5X,F1C  6) 

165  FORMAT  (  T5,  'JOBCO'.  12/,  T5,  '  JOBFO  ' ,  4  1 4/ / > 

170  FORMAT (27 ( 1H-) ,  'SECTIONAL  WEIGHT  PROPERTIES  ', 27 ( 1H-) //, 

*T5,  'SECTION ',  5X,  'WEIGHT ',  5X,  '  Kxx  ',  5X,  'Centroid '/, 

*T5,  ' - ',  5X,  ' - ' ,  5  x  ,  ' - ' ,  5X .  ' - '//> 

175  FORMAT  ( T5,  3X,  12,  T13,  F10.  3,  T26,  >^8.  2,  T37,  FB.  2) 

RETURN 

END 


no  ooonoon  o  on  non 


SUBROUTINE  RKF  (TIME,  Y.  TNEXT,  ERR,  NEQS.  STEP  > 
RUNGE-KUTTA  INTEGRATION  FOR  CAPSIZE. 

REAL  Y ( 1 ) 

REAL  YY ( 13  > ,  YA(13),  YB(13) 

REAL  YC ( 13 ) 

DATA  YC (13) /O. 0/ 

DATA  YY ( 13 ) /O. 0/ 

DATA  YA(13>/0. 0/ 

DATA  YB(13)/0. 0/ 

STEP=ABS ( STEP ) 

NSTEP  =  ( TNEXT-T IME  > /STEP+O.  5 
IF  (NSTEP.  LT.  1)  NSTEP  =  1 
TSTEP= ( TNEXT-T IME ) /FLOAT ( NSTEP  > 
HALF=TSTEP/2.  0 
FACT=TSTEP/6.  0 
110  CALL  DERIV  (TIME, Y, YA) 

DO  120  1=1, NEQS 

YY ( I ) =HALF*YA ( I ) +Y ( I ) 

120  CONTINUE 

TIME=HALF+TIME 

CALL  DERIV  (TIME, YY, YB) 

DO  130  1=1, NEQS 

YA  (  I  )  =2.  0*YB  (  I  )  +YA  (  I  > 

YY ( I ) =HALF*YB ( I ) +Y (  I  > 

130  CONTINUE 

CALL  DERIV  (TIME,  YY, YB) 

DO  140  1=1,  NEQS 

YA ( I ) =2.  0*YB ( I ) +YA ( I ) 

YY ( I ) =TST£P*YB ( I ) +Y (  I  ) 

140  CONTINUE 

TIME=HALF+TIME 

CALL  DERIV  (TIME,  YY, YB) 

DO  150  1=1,  NEQS 

Y  (  I  )  =  ( YA  (  I  )  +YB  (  I  )  )  *FACT+Y  (  I  > 

150  CONTINUE 


This  call  to  DERIV  is  to  get  actual  acceleration  for  the 
new  TIME.  By  calling  RHS  this  time  we  are  loading  the 
acceleration  array  ACC  (  )  in  COMMON  ACCEL  with  correct 

ac c e 1  era t i ons ,  rather  than  accel.  computed  as  dictated 
by  the  fourth-order  RUNGA-KUTTA  scheme. 

CALL  DERIV(TIME, Y, YC) 

CALL  GETFREQ 


IF  (TIME+HALF.  LT.  TNEXT)  GO  TO  110 

TIME=T  NEXT 

RETURN 

END 


no  n  n  nnonnnnnnnnnnnnnnnnnnnnnnnnn 


SUBROUTINE  DERIV  (TT,  YY,  YYDOT) 

Evaluates  derivatives  in  equations  of  motion 


TT  —  TIME,  THE  INDEPENDENT  VARIABLE 

YY  —  DEPENDENT  VARIABLE  ARRAY.  . 

YY ( 1 )  =  X-COORDINATE  QF  MASS  CENTER 

YY ( 2  >  =  Y-COORDINATE  OF  MASS  CENTER 
YY ( 3  >  =  Z-COORDINATE  OF  MASS  CENTER 
YY ( 4 )  =  THETA  ROTATION  (ROLL  ANGLE) 

YY ( 5  >  =  PHI  ROTATION  (YAW  ANGLE) 

YY ( 6 )  =  PSI  ROTATION  (PITCH  ANGLE) 

YY ( 7 )  =  X-COMPONENT  OF  LINEAR  VELOCITY 

YY ( 8 )  =  Y-COMPONENT  OF  LINEAR  VELOCITY 

YY ( 9 )  =  Z-COMPONENT  OF  LINEAR  VELOCITY 

YY(IO)  =  ANGULAR  VELOCITY  ABOUT  X-AXIS  (ROLL  RATE) 

YY (11)  =  ANGULAR  VELOCITY  ABOUT  Y-AXIS  (YAW  RATE) 

YY (12)  =  ANGULAR  VELOCITY  ABOUT  Z-AXIS  (PITCH  RATE) 

YY (13)  =  TIME  INTEGRAL  OF  YAW  ANGLE  (EVALUATED  ONLY 

WHEN  REQUIRED  BY  THE  AUTOPILOT) 

YYDOT  —  DERIVATIVES  OF  YY. 

TT  AND  YY  ARE  SUPPLIED  TO  THIS  SUBROUTINE  WHENEVER  THE  EQUATION 
SOLVING  ROUTINE  REQUIRES  THE  VALUES  OF  THE  DERIVATIVE  OF  YY — 
YYDOT  YYDOT  IS  COMPUTED  BY  EVALUATING  THE  RIGHT  HAND  SIDE  OF 
THE  EQUATIONS  OF  MOTION  FOR  THE  GIVEN  TT  AND  YY  AND  THE  PRE¬ 
DEFINED  GEOMETRY  OF  THE  SHIP  AND  EQUATIONS  OF  THE  WAVES. 

REAL  YY (13),  YYD0T(13> 

COMMON  /A  /  A(6, 6) 

COMMON  /C  /  C(3, 3) 

COMMON  /CT  /  CTO,  3) 

COMMON  /FORCE  /  XF,  YF,  ZF,  XM,  YM,  ZM 

REAL  FORCE ( 6 ) 

EQUIVALENCE  ( FORCE ( 1 ), XF ) 

COMMON  /H  /  H (3  > 

COMMON  /MASS  /  RHO,  G,  GAMMA 

COMMON  /MASS  /  DISPL,  SMASS,  XCG,  YCG,  ZCG, 

1  AMX,  AMY,  AMZ,  RADII  (6) 

COMMON  /MASS  /  PMI (3,3) 

COMMON  /STATS  /  NRHS(4),  DELTA,  HSUM,  HMIN,  HMAX.  TTO,  TT1 

COMMON  /TRIG  /  CTHETA,  STHETA,  CPHI,  SPHI,  CPSI,  SPSI 

COMMON  /Z  /  SCR (6) 

COMMON/ AC CEL/ ACC ( A ) 

NRHS ( 4 ) =NRHS (  4  )  + 1 
IF  (TT.  GT.  TT  1  )  GO  TO  90 
IF  (TT.  EQ.  TT1)  GO  TO  80 
**•#•  Previous  time  step  rejected 
NRHS ( 3 ) =NRHS ( 3 ) +1 
TT0=AMIN1 (TT, TTO) 

TT 1 =TTO 
GO  TO  100 

Previous  time  step  repeated 
80  NRHS ( 2 ) =NRHS ( 2 ) +1 
GO  TO  100 

***  Previous  time  step  accepted 
90  DELTA=TT1— TTO 
TT0=TT1 
TT1=TT 


on 


IF  (DELTA.  LE.  0.  0)  GO  TO  100 
NRHS ( 1 ) =NRHS ( 1 >+l 
HSUM=HSUM+DELTA 
HMIN=AMIN1 (HMIN. DELTA) 

HMAX=AMAX1 (HMAX,  DELTA) 

100  CONTINUE 

C  ***  Compute  forces  on  ship 
CALL  FORTIS  (TT,  YY) 

C  ***  Set  the  values  of  the  derivatives 
C  Set  up  the  H  vector  (angular  momentum) 

H ( 1 ) =PM I ( 1, 1  >*YY( 10)+PMI (1, 2>*YY(11 >+PMI (1, 3)*YY( 12) 
H ( 2 ) =PM I (2, 1 >*YY( 1 O ) +PM I (2, 2 ) *YY (11) +PM I (2, 3>*YY< 12) 
H ( 3  >  =PMI (3,  1 >*YY( 1 0 ) +  PM I (3/  2)*YY( 1 1 >+PMI (3, 3>*YY< 12) 
C  *■#•*  Set  derivatives  of  position  and  rotation 
DO  110  1  =  1,3 

YYDOT ( I >=YY( 1+6) 

110  CONTINUE 

YYDOT ( 5 )  =  ( YY (11) *CTHET  A- YY ( 12) *STHETA > /CPS I 
YYDOT ( 4 ) =YY ( 1 0 ) -YYDOT ( 5 ) *SPS I 
YYDOT ( 6 ) =YY ( 1 1 ) +STHETA+YY ( 1 2 ) *C THETA 
C  ***  Solve  for  derivatives  of  linear  and  angular  velocity 
YYDOT ( 7 ) =XF /SMASS 
YYDOT ( S ) =YF 
YYDOT ( 9 ) =ZF 

YYDOT ( 10 ) =XM~YY ( 1 1 ) *H ( 3 ) +YY ( 12 ) *H ( 2 > 

YYDOT (11) =YM-YY ( 1 2 ) *H ( 1 ) + YY ( 1 0 ) *H ( 3 ) 

YYDOT ( 12 ) =ZM-YY ( 1 O ) *H ( 2 ) +YY ( 1 1 )*H( 1 ) 

DET=0.  O 

L=LNEQF  (  6,  5,  1,  A  (2,  2)  ,  YYDOT  (  8  > ,  DET,  SCR) 

IF  (L.  NE.  1  )  STOP  1 

C  ***  Load  the  acceleration  array  ACC  Cship  coordinates! 
ACC ( 1 ) =YYDOT ( 7 ) 

ACC ( 2 ) =YYDOT ( 8 ) 

ACC ( 3 ) =YYDOT ( 9 ) 

ACC ( 4 ) =YYDOT ( 10 ) 

ACC ( 5 ) =YYDOT (11  ) 

ACC (6 ) = YYDOT ( 12 ) 

**■*  Resolve  linear  accelerations  into  fixed  coordinates. 
SCR ( 1 ) =YYDOT ( 7 ) 

SCR ( 2 ) =YYDOT ( 8 ) 

SCR ( 3 ) = YYDOT ( 9 ) 

YYDOT ( 7 ) —C ( 1 , 1 )*SCR(1 )+C(2, 1 ) *SCR ( 2 ) +C ( 3. 1)*SCR(3) 
YYDOT ( 8 ) =C ( 1, 2)*SCR( 1 )+C(2, 2 ) *SCR ( 2 ) +C ( 3,  2)*SCR(3) 
YYDOT ( 9 ) =C ( 1 ,  3 ) *SCR ( 1 ) +C ( 2, 3 ) *SCR ( 2 ) +C ( 3, 3)*SCR(3) 
YYDOT ( 1 3 ) =YY ( 5 ) 

RETURN 
END 


SUBROUTINE  ROTATE  (YV) 


SUBROUTINE  GETFREQ 


C  **************  ********* -a-*** *******  ********************* 

c 

C  Evaluates  frequency  of  ac c e 1  era t i ons  of  each 

C  strip  in  heave*  sway  and  roll  using  recent 

C  history.  The  routine  finds  the  last  several 

C  peaKs  or  troughs  in  the  response  history.  Evaluates 

C  the  time  difference  and  calculates  the  frequency 

C  (rad/sec)  and  loads  the  OMEGAX(  ,  )  array. 

C 

C ***************************** ***************************** 

c 


WAVE  PROPERTIES. 
COMMON  /  / 


NWAVES,  WVSUM, 

WVAMP ( 20 )  ,  WVFRE ( 20  >  ,  WVDIR(20),  WVPHA(20), 
WN { 20 ) i  WNX ( 20  >  ,  WNZ ( 20 ) » 

CSK ( 20 ) ,  CCM 20  > ,  CXM2Q), 

CYM20),  CZM20) »  XW(20> 


TABLE  OF 
COMMON  / 


'OFFSETS. 

/ 


lOMMON  /  /  MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25>, 

XOFF  (  25  )  >  Y0FFC25.  25),  Z0FF(25,  25), 

XPROF ( 51 ) ,  YPR0FC51) 

COMMON/ACCEL/  ACC (6) 

COMMON/SXGEOM/AREAS ( 25  > , DXS(25>, DX1SC25) , DX2S(25), 
YMOMS ( 25 ) , ZMOMS ( 25 ) , ISTA, LSTA 
COMMON/SXOMEG/OMEGAX ( 3  > 

COMMON/HI ST/ AH I ST ( 3< 30),  TIMTK(30> 

COMMON/TIME/TIME,  RAMP 

COMMON/TIME/TO,  TSTART,  TSTOP, TOUTPT, TSTEP,  ERR 
REAL  TPM  10) 


SECTION  1.0-  Move  values  up  one  index  in  the  AH I ST 
array 

DO  100  J=30,  2,  -1 
JM1=J-1 

AH I ST ( 1 ,  J ) =AH 1ST ( 1 ,  JM1 ) 

AHIST ( 2, J ) =AHIST ( 2, JM1 ) 

AHIST (3,  J ) =AHIST ( 3,  JM1 ) 

CONTINUE 

DO  110  1=30,  2,  -1 
IM=I— 1 

TIMTM I )=TIMTK( IM) 

CONTINUE 


SECTION  2.  0  - 


Calculate  acceleration  of  a  strip  J  in 
heave, sway  and  roll  using  the  ACt(I) 
array  giving  ship  accelerations  in  ship 
coordinate  system. 


XDUM=10.  ! Arbitrary  momen' 
defined  history 
AH=ACC ( 2 ) +ACC ( 6 ) *XDUM 
AS=ACC ( 3 ) -ACC ( 5 ) *XDUM 


better 


noooonoonoonooo 


AR=ACC ( 4 ) 

C 

AHIST ( 1 » 1  )=AH 
AHIST (2< 1 )=AS 
AHIST ( 3. 1 )=AR 
C 

200  CONTINUE 
C 

TIMTK( 1)-TIME 
C 

IF(TIME.  LE.  RAMP)  CO  TO  400 


SECTION  3.  0  -  Find  peaKs  and  troughsi  evaluate 
CNote:  Here  we  are  evaluating  fre 
using  only  the  last  quarter  of  a 
If  we  wanted  to  use  a  half  cycle* 
would  get  out  of  the  GQTQ310  loop 
KNT=3  instead  of  KNT=2  and  change 
the  'TQ=.  .  .  '  line  to 
TQ=TPK(3)-TPK< 1 >  followed  by 
OMEGAX  ( I  >  =2.  *P  I  /  (  2.  *TQ  > 


DO  300  1  =  1. 3 
L=0 
KNT =0 
TSIGN=1. 

310  CONTINUE 
L=L+1 

IF ( L.  EQ.  30)  GO  TO  325 
TSIGN2=TSIGN 

DIF=AHIST( I.  L ) -AHIST ( I .  L+l > 
TSIGN=SIGN ( 1 .  ,  DIF) 

IF ( L.  EQ.  1  )  GO  TO  310 

IF(TSIGN2. EQ.  TSIGN)  GO  TO  310 

KNT=KNT+1 

TPK ( KNT ) =T IMTK ( L ) 

IF  (  KNT.  EQ.  2)  GO  TO  320 
GO  TO  310 
C 

320  CONTINUE 

TQ=TPK ( 1 ) -TPK ( 2  > 

OMEGAX ( I )=6.  2831853/(4.  *TQ) 
GO  TO  300 

3LJ  OMEGAX ( I )=0. 

C 

300  CONTINUE 

C 

400  CONTINUE 

RETURN 
END 


freq. 
quenc  y 
"cycle'', 
we 

when 


■MJIU*- 


ccc 


SUBROUTINE  OUTCOF 


COMMON/ 10/ INPUT ,  OUTPUT,  BIF,  OFF, COF 
INTEGER  OUTPUT,  BIF,  OFF,  COF 
COMMON/MASS/RHO,  G,  GAMMA 
COMMON/MASS/D ISPL,  SMASS,  XCG, YCG,  ZCG, 

*  AMX,  AMY,  AMZ,  RADII  (6) 

COMMON/LHS/Y (13) 

COMMON  /  /  NWAVES.  WVSUM, 

WVAMP ( 20  > ,  WVFRE ( 20 ) ,  WVDIR(20),  WVPHA(20), 

WN  C  20 ) ,  WNX(20),  WNZ(20), 

CSK(20),  CCK ( 20 ) #  CXK(20), 

C YK ( 20 ) ,  CZK(20),  XU<20) 

COMMON  /  /  MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25), 

1  XOFF  ( 25  ) ,  YOFF  (25,  25  ) ,  Z0FF(25,25), 

2  XPROF (51),  YPROF  <  51 ) 

COMMON/RESIST/SPEED 

COMMON/SIGMA  /  NK,  SIGMA ( 24 ) ,  SI GMAO,  ERRO,  0M<12> 

C 

C 

COMMON/COEFF4/COEFF4 ( 6,  12,  8,  25),  AREAN < 25,  6) 

COMMDN/COEFFX /THAH ( 25, 21), TSASC25, 21), TRAR (25, 21), TCCA<25,  21), 

*  THVH  (  25,  21  ),  TSVS  (  25,  21  ),  TRVR(25,  21  ),  TCCV(25,  21  ), 

*  THAC  X  ( 25,  21  ),  THVCX  (25,  21  ),  TSACX(25,  21  ),  TSVCX(25,  21  ), 

*  TRAC  X  <25,  21),  TCACX(25,  21  ),  THVCY(25,  21), 

*  ITP ( 25 ) ,  TXP ( 25 ) ,  IFPC21 ), FXP(21 ) 

COMMON/OPTION/ JOBCO, JOBFO ( 10 ) 

COMMON/SXOMEG/OMEGAX ( 3 ) 

COMMON/DRFT 1 /  DRAFT1 (6) 

C 

DATA  DEGREE/0.01745  32925/ 

C 

c - 

WRITE (OUTPUT,  2) 

C 

WRITE (OUTPUT, 3) 

DO  10  J=1 , MSTA 

WR  I TE(  OUTPUT,  1  )  J,  THAH(  J,  21  >  ,  TSAS  (  J,  21 ) ,  TRAR  (  J,  21  ) ,  TCCA  ( J,  21  ) 

10  CONTINUE 

C 

WRITE (OUTPUT. 4) 

DO  20  J— 1 , MSTA 

WR  I  TE(  OUTPUT,  1  )  J,  THVH  ( U,  21  ) ,  TSVS  ( J,  21  ) ,  TRVR  (  J,  21  ) ,  TCCV  ( J,  21  ) 

20  CONTINUE 

C 

WRITE (OUTPUT,  5) 

DO  30  J=1 , MSTA 

WRITE  (OUTPUT,  1  )  J,  THACX(J,  21  ),  TSACX(U,  21  >,  THVCX  ( J,  21  ), 

*  TSVCX ( J. 21 ) 

30  CONTINUE 

C 

DO  40  K-l, NWAVES 
WRITE (OUTPUT,  6)  K 
WRITE (OUTPUT, 3) 

DO  110  J«l, MSTA 

WR  ITE(  OUTPUT,  1)  J,  THAH ( J,  K  ),  TSAS  (  J,  K  ),  TRAR  ( J,  K ),  TCCA  ( J,  K ) 

110  CONTINUE 

C 

WRITE (OUTPUT, 4) 

DO  120  J=1 , MSTA 

WR  I  TE(  OUTPUT,  1  )  U,  THVH  ( J,  K  ),  TSVS  ( J,  K ),  TRVR  (  J,  K ),  TCCV  ( J,  K ) 


120  CONTINUE 

C  WRITE (OUTPUT,  5) 

DO  130  J= 1 , MST A 

WR  I TE( OUTPUT,  1  )  J,  THAC X  <  J,  K  > ,  TSACX  < U,  K  ) ,  THVCX  ( J,  K ) ,  TSVCX  ( J,  K  > 
130  CONTINUE 

40  CONTINUE 

1  FORMATC IX,  12,  5X,  4E15.  5) 

2  FORMAT (/ '*****TEMPORARY  HYDRODYNAMIC  COEFFICIENTS****'//) 

3  FORMAT (IX,  'STA',  4X,  'HAH',  12X,  'SAS',  12X,  'RAR',  12X,  'CCA'/) 

4  FORMAT  (IX,  'STA',  4X,  'HVH  ' ,  12X,  'SVS',  12X,  'RVR  ',  12X,  'CCV'/) 

5  FORMAT  (IX,  'STA',  4X,  'HACX',  11X,  'SACX',  11X,  'HVCX',  11X,  'SVCX',  /) 

6  FORMAT  (/IX,  'WAVE  NO.  -  ',12/) 

RETURN 

END 


WVPHAC20), 


C  *■*-* 


110 
c  *** 
120 


130 

c  *«•* 
c 

c  **■# 


SUBROUTINE  F0LI02 

COMMON/ 10/ INPUT » OUTPUT,  BIF,  OFF, COF 
INTEGER  OUTPUT, BIF, OFF, COF 
COMMON  /LHS  /  Y(13> 

COMMON  /TIME  /  TIME,  RAMP 

COMMON  /TIME  /  TO,  TSTART,  TSTJP,  TOUTPT,  TSTEP,  ERR 

COMMON  /  /  NWAVES,  WVSUM, 

1  WVAMP ( 20 ) ,  WVFRE ( 20  > ,  WVDIR(20>,  WVPHAC20 

2  WN(20>,  WNX ( 20 ) ,  WNZ(20>, 

3  CSK ( 20  > ,  CCKC20),  CXKC20), 

4  CYK ( 20  > ,  C  ZK ( 20 ) ,  XW ( 20 ) 

COMMON/SUMMARY/  NT,  YYBAR(IO),  YYRMS(IO), YYMAX(IO),  YYMIN(IO) 
COMMON/LOADS/  S IN2 ( 25 ) ,  S IN3 ( 25 ) , S I N4 < 25 ) , SIN5 ( 25 ) ,  SIN6 < 25 ) , 

1  V2(25>, V3C25),  V4(25>,  V5(25>,  V6(25), 

2  RED  (6,  25  ) 

COMMON/ D I SPLAY/ TARE ( 10  > 

REAL  YS (10) 

EQUIVALENCE  (ETA,YS(1>) 

DATA  RAD  /O.  01745  32925  19943/ 

ETA=0.  O 

IF  (NWAVES.  EQ.  0)  GO  TO  120 
Wave  amplitude  @  c.g. 

DO  110  K=l, NWAVES 

ARG=Y ( 1 ) *WNX ( K  >  -  Y  ( 3  > *WNZ ( K ) -TIME*WVFRE ( K ) +WVPHA ( K ) 

ET  A=COS ( ARG ) *WVAMP ( K ) +ETA 
CONTINUE 
Position  vector 
DO  130  1=1,3 
YS ( 1+1 ) =Y ( I ) 

YS( I+4)=Y( 1+3) /RAD 
CONTINUE 

Display  relative  heave  —  subtract  c. g.  height 
above  baseline  to  bring  mean  value  to  zero. 

YS ( 3 ) =YS ( 3 )— T  ARE ( 2 ) 


C 


Speed  and  suiay  ra 
CPH I =COS ( Y ( 5 ) ) 
SPHI=SIN ( Y ( 5 ) ) 

YS  ( S  )  =0. 

YS  (  8  )  =V<b  ( 1 4  ) 

YS ( 9 ) =Y ( 7 ) *CPHI  - 
YS (10) =Y ( 9 ) *CPHI+ 
Load  mean  and  rms 
TINIT=.  75*TST0P 
IF  (TIME.  LE.  TINIT) 
NT =NT+ 1 

IF  (NT.  NE.  1  )  GO  TO 
DO  184  1=1, 10 
YYMAX ( I ) =0.  0 
YYMIN(  I  >=0.  0 
YYBAR  (  I  )  =0. 

YYRMS  (  I  )  =0. 
CONTINUE 

CONTINUE 


rate 


'.NO  RUDDER 

•BENDING  MOMENT  AT  STATION  J=14 
Y ( 9 ) *SPHI 
Y ( 7 ) *SPHI 
information 


DO  185  1  =  1,  10 

IF ( YS ( I ) .  GT.  YYMAX ( I ) >  YYMAX ( I )=YS( I ) 
IF ( YS ( I ) .  LT. YYMIN( I ) >  YYMIN ( I >  =YS ( I ) 

YYBAR ( I ) = YYBAR ( I >  +YS ( I ) 

YYRMS ( I ) = YYRMS ( I ) +YS ( I >  **2 


185  CONTINUE 
C 

199  CONTINUE 

C  ***  Write  to  history  file  w„,,. 

WRITE(IO)  YS ( 1 ) ,  YS ( 3 ) , YS ( 7 ) #  YS ( 5 ) , YS ( 6 ) «  YS ( 4 > 
C  ***  Print  YS  vector  .  _  . 

WRITE  (OUTPUT,  190)  TIME,  < YS( I > #  I“1 • 9) 

C 

RETURN 

C 190  F0RMAT(5(  IX,  FI  1 .  4 ) ,  3F12.  4,  2X,  El 5.  5,  2X,  F12.  4> 
END 


on  on  o  o  no  o  oo  oooooooooooooooo 


SUBROUTINE  FORTIS  (TT,  YY) 

TT  —  TIME,  THE  INDEPENDENT  VARIABLE 

YY  —  DEPENDENT  VARIABLE  ARRAY.  . 

YY ( 1 >  =  X-COORDINATE  OF  MASS  CENTER 

YY  (  2  >  =  ''-COORDINATE  OF  MASS  CENTER 

YY ( 3 )  =  Z— COORDINATE  OF  MASS  CENTER 

YY ( 4 )  =  THETA  ROTATION  (ROLL  ANGLE) 

YY ( 5 >  =  PHI  ROTATION  (YAW  ANGLE) 

YY ( 6 )  =  PSI  ROTATION  (PITCH  ANGLE) 

YY ( 7  >  *  X-COMPONENT  OF  LINEAR  VELOCITY 

YY ( S )  =  Y-COMPONENT  OF  LINEAR  VELOCITY 

YY ( 9 )  =  Z-COMPONENT  OF  LINEAR  VELOCITY 

YY (10)  =  ANGULAR  VELOCITY  ABOUT  X-AXIS  (ROLL  RATE) 

YY (11)  =  ANGULAR  VELOCITY  ABOUT  Y-AXIS  (YAW  RATE) 

YY ( 12 )  =  ANGULAR  VELOCITY  ABOUT  Z-AXIS  (PITCH  RATE) 

REAL  YY ( 12 ) 

COMMON  /C  /  C(3, 3) 

COMMON  /DAMP  /  DAMPL ( 6 ) ,  DAMPQ ( 6 ' 

COMMON  /FORCE  /  XF,  YF,  ZF,  XM,  YM,  ZM 

REAL  FORCE (6) 

EQUIVALENCE  ( FORCE ( 1 >, XF ) 

COMMON  /MASS  /  RHO,  G,  GAMMA 

COMMON  /MASS  /  DISPL,  SMASS,  XCG,  YCG#  ZCG, 

1  AMX,  AMY,  AMZ,  RADI  I  (6) 

COMMON  /MASS  /  PMI(3,3> 

COMMON  /STATS  /  NRHS(4),  DELTA,  HSUM,  HMIN,  HMAX,  TTO,  TT1 

COMMON  /TIME  /  TIME,  RAMP 

COMMON  /TIME  /  TO,  TSTART ,  TSTOP,  TOUTPT,  TSTEP,  ERR 

COMMON  /TRIG  /  CTHETA,  STHETA,  CPHI,  SPHI,  CPSI,  SPSI 

COMMON  /V  /  VX,  VY,  VZ 

***  Load  rotational  transform  matrices  -  transform  velocity 
into  ship  coordinates 
CALL  ROTATE  (YY) 

**■*  Initialize  force  vector 
DO  110  1  =  1,6 
FORCE  (  I  )  =0.  0 
110  CONTINUE 

***  Ensure  constant  speed  for  version  SSX 
VX=SPEED 

Compute  hydrodynamic  and  inertial  forces  on  ship 
CALL  AQUA2D  (TT, YY) 

***  Add  damping  forces/moments  in  ship  coordinate  system 
XF=XF-( DAMPL ( 1 ) +ABS ( VX ) *DAMPQ ( 1 ) )*VX 
YF=YF-  (  DAMPL  ( 2  )  +ABS  (  VY  >  ••‘■DAMPQ  ( 2  )  )  *  VY 
ZF=ZF— ( DAMPL ( 3 ) +ABS ( VZ ) *DAMPQ ( 3 ) )*VZ 
XM=XM- ( DAMPL ( 4 ) +ABS ( YY (10) >*DAMPG(4) )*YY( 10) 

YM=YM- ( DAMPL ( 5 ) +ABS ( YY ( 11 ) ) *DAMPQ ( 5 ) ) * YY (11) 

ZM=ZM— ( DAMPL ( 6 ) +ABS ( YY ( 12) )*DAMPQ(6> >*YY( 12) 

Fixed  added  mass  coeficients  -  not  normally  used  except 
perhaps  for  surge. 

XF=XF /AMX 
YF=YF/AMY 
ZF=ZF/AMZ 

***  Ramp  function  applied  to  force 
IF  (TT. GT.  TSTART)  GO  TO  130 
IF  (RAMP.  EQ.  0.  0)  GO  TO  130 
R= ( TT-TO ) /RAMP 


DO  120  1  =  1,  6 

FORCE ( I )=FORCE( I )*R 
120  CONTINUE 
130  CONTINUE 


C 


RETURN 

END 


SUBROUTINE  SPECTRA ( PFRQ, TRWH13, OMGBEC, OMGEND, WAMP,  PER) 
DIMENSION  WAMP CIO), PER (10), OMEGA (10) 

DIMENSION  0MC2( 101 ), SPEC ( 101 ) 

IC 1 =— 8 

IC2=0 

IC3=-7 

IC4=— 1 

I C  5=— 9 

IC6=1 

IW=0 

0MG2 ( 1 ) =OMGBEC 

0MG2C 101 >=OMGEND 

DELFRG= ( QMG2 ( 101 )-0MG2( 1 ) )/l01. 

DO  5  1=2,  101 
J=I-1 

0MG2 ( I ) =0MG2 ( 1 ) + J*DELFRQ 
DO  6  1  =  1,  101 

0MC2C I >=0MG2< I )/(2.  *3.  14159) 

DO  10  1  =  1,  101 

SPEC  < I )*5. *< .  25*TRWH13)**2*PFRQ*(0MG2( I ) *PFRG > ** ( -5 ) *EXP ( 

(-5.  /4.  )  * ( 0MG2 ( I ) *PFRQ ) ** ( -4 >  ) 

0DD=0. 

EVEN=0. 

DO  20  .  -  50, 2 

EVEN=EVtn+SP£C ( I ) 

DO  30  1=3,  99,  2 
ODD=ODD+SPEC ( I ) 

T AREA= ( 0MG2 ( 2 ) — 0MG2 ( 1 ) ) /3.  *<SPEC ( 1  )+4.  *EVEN+2.  *ODD+SPEC ( 101 ) > 

IC1=IC1+10 

IC2=IC2+10 

IC3=IC3+10 

IC4=IC4+10 

I C 5= I C 5+ 10 

IC6=IC6+10 

0DD=0. 

EVEN=0. 

IW=IW+1 

DO  50  I  =  1C1,  IC2,  2 
EVEN=EV EN+SPEC ( I  ) 

DO  60  I  =  IC3,  IC4,  2 
ODD=ODD+SPEC ( I ) 

WAMP  (  I W  )  =  ( 0MG2  ( 2  )  — 0MG2  ( 1  )  ) /3.  *  ( SPEC  (  IC5  )  +4.  *EVEN+2.  * 

QDD+SPEC ( IC6 ) ) 

WAMP  (  I W  )  =  1.  41 4*SQRT  ( WAMP  <  IW )  ) 

PER ( I W ) = ( QMG2 ( IC6 ) +0MC2 ( IC5 ) ) /2. 

OMEGA  (  I W )  =2.  *3.  1 41 59*PER  ( I W ) 

PER ( I W) =1 .  /PER ( I W ) 

IF(  IW.  LT.  10)  GO  TO  40 

PRINT  500,  TRWH13,  PFRQ, OMEGA, PER, WAMP 
RMS=4.  *SQRT ( TAREA  > 

PRINT  1010, TAREA, RMS 

FORMAT  (  15X,  'Hl/3=  ',  F10.  2,  2X,  'PEAK  FREQ=  ',  F10.  4,  //,  2X, 

'OMG  ' ,  3X «  10F6.  3,  /,  2X,  'PER  3X,  10F6.  2,  /,  2X,  'WAMP  ',  2X, 
10F6.  2) 

FORMAT  ( 2X,  'TOTAL  AREA=  ' ,  F10.  2,  5X,  'RMS*',  F10.  2) 

RETURN 

END 

SUBROUTINE  LINEAR ( X, Y, TRWPER, Y2 ) 

DIMENSION  X ( 50  > ,  Y ( 50 ) , Y2 (10) 

DIMENSION  TRWPER (10) 

J=0 


140 

1380 


138 


128 

127 

554 


RA=SQRT ( (X-XF)**2+(Y-YF)**2+(Z-ZF>**2> 
FR A=ARM/RA 

RB=SQRT ( <  X-XF)**2+( Y-YF>**2+ (Z+ZF>**2> 

FRA=FRA-ARM/RB 

FRX=-AN(MJ.  1 ) *FR  A 

FRY=-AN  (  M  J,  2  )  *FR  A 

FRZ=-AN(MJ, 3)*FRA 

P 1 =P 1 +FR  X 

P2--=P2+FRY 

P3=P3+FRZ 

P4=P4+YF*FRZ-ZF*FRY 

P5=P5+ZF*FRX-XF*FRZ 

P6=P6+XF*FRY-YF*FRX 

PBB (NJ, MJ)=PBB (NJ, MJ)+FRA*ARN 

CONTINUE 

P  (NJ,  1  )=P (NJ,  1  )+Pl*ARN 
P  (NJ,  2)=P  (NJ,  2  )  +P2*ARN 
P  (  N  J,  3  )  =P  ( NJ,  3>+P3*ARN 
P  ( N  J,  4>=P(NJ,  4  )  +P4*ARN 
P  ( N  J,  5  )  =P  ( N  J,  5)+P5*ARN 
P(NJ,  6  )  =P  ( NJ,  &)+P6*ARN 
CONTINUE 
CONTINUE 
DO  554  KG=1 , 6 

WR I TE ( 3 )  (P (NJ,  KG) , NJ=1, NPAN) 

RETURN 

CTKir\ 


''’s  r\  i 


TOP  1=2.  *3.  14159 
DO  2Q  I  1  =  1,  10 
I F  <  II.  GT.  1 )  GO  TO  69 
50  J=J+1 

69  IF ( TOP  I /TRWPER (II>  — X(J)  >112,  111,  110 

110  GOTO  50 

111  Y2(II)=V(J) 

GOTO  20 

112  Y2C II )=Y< J-l )+( Y< J)-Y< J-l > )/<X< J)-X< J-l ) >* 

1  (TOPI /TRWPER ( 1 1 ) -X ( J- 1 ) ) 

20  CONTINUE 

RETURN 
END 


c 

c 


i0»-*  4»uru~ 


SUBROUTINE  TBAR ( TT, YY) 

ccc 

EXTERNAL  ETAF 

CCC 

CQMMON/MASS/RHO,  G,  GAMMA 
CQMMON/MASS/DISPL,  SMASS,  XCG, YCG,  ZCG, 

*  AMX<  AMY/  AMZ/  RADI  I  (6) 

COMMON  /  /  NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR<20>,  WVPHA(20>, 

WN ( 20 ) i  WNX ( 20 ) <  WNZ ( 20  >  < 

CSK  <  20 ) i  CCK ( 20 ) *  CXK<20>, 

C YK ( 20 ) /  C  ZK ( 20 ) ,  XW(20> 

COMMON  /  /  MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25>, 

XOFF  {  25  )  ,  Y0FF(25,25),  Z0FFC25,  25), 

XPROF  ( 51  ) ,  YPROF ( 51 ) 

COMMON/ETA/YC,  XK(20> 

COMMON /CT/CT ( 3/  3) 

COMMON /TEMPSTA/DXFWD, DXAFT, TSTA(25) 

COMMON/D ISPLAY/TARE ( 6 ) 

REAL  YY ( 1 ) 

C 

DATA  DEGREE/0.01745  32925/ 

C  SECTION  1.0  Compute  average  draft  at  each  station 

C  TSTA(J). 

C 

C 

DO  2  K=1 ,  NWAVES 

CXK(K)«CT(1,  1 )*WNX(K)-CT( 1, 3>*WN<K> 

XW  CK )  =  <  TT*WVFRE ( K ) -WVPHA ( K ) +YY ( 3 ) *WNZ <  K ) — YY ( 1 )*WNX ( K) >/CXK(K> 
2  CONTINUE 
C 

DO  5  J=-l.  MSTA 
XXSTA  XOFF ( J ) 

IF ( NWAVES.  EQ.  0)  GO  TO  11 

DO  10  K=1 / NWAVES 

XK ( K ) = ( XXSTA— XW ( K ) )*CXK(K> 

10  CONTINUE 

11  YC=CT ( 1 1  2 ) *XXSTA+YY ( 2 ) 

YKEEL=YCG-T  ARE ( 2 ) -YC 
ETA1=ETAF(0.  ) 

TS TA ( J  > =ETA 1 - YKEEL 
5  CONTINUE 

C 
C 
C 
C 

CCC 

RETURN 

END 


SUBROUTINE  MOCHA 


r 


r 

V 


r 


ccc 

ccc 

ccc 

ccc 

ccc 

ccc 


C5 


C5 

C5 

C5 


C 

C 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 


Purpose:  For  J0BC0=2, 3  or  4  ...  this  subroutine 
will  load  the  COMMON/COEFFX/  arrays  for  use  in 
subroutine  FROUDE. 

COMMON/MASS/RHO,  G, GAMMA 
COMMON/MASS/D I SPL ;  SMASS,  XCG,  YCG,  ZCG, 

*  AMX »  AMY <  AMZ,  RAD 11(6) 

COMMON/LHS/Y ( 13 ) 

WAVE  PROPERTIES.  . 

COMMON  /  / 

1 
2 

3 

4 


TAELE  OF  OFFSETS. 

COMMON  /  / 

1 
2 

COMMON/RESIST /SPEED 

COMMON/S IGMA  /  NK<  SIGMA (24) , SIGMAO,  ERRO,  0M(12> 


C0MM0N/C0EFF4/C0EFF4C6, 12, B, 25), AREANC25, 6) 

COMMON /COEFFX/THAHC  25,  21),  TSAS(25,  21),  TRAR  ( 25,  21),TCCA<25,  21), 

*  THVH  ( 25,  21  >,  TSVS  ( 25,  21  ),  TRVR(25,  21),  TCCV<25,  21), 

*  THAC  X  ( 25,  21  ),  THVCX(25,  21  ),  TSACX<25,  21  ),  TSVCX<25,  21), 

*  TRAC  X<  25,  21  ) ,  TCACX(25,  21  ),  THVCY(25,  21 ), 

*  ITP ( 25 ) ,  TXP (25 ) ,  IFP ( 21 > ,  FXP (21 > 

COMMON /OPT I ON/ JOBCO,  JOBFOC 10) 

COMMON/ETA/YC,  XK(20) 

COMMON /CT /CT ( 3, 3) 

COMMON/SXOMEG/OMEGAX ( 3 ) 

COMMON/DRFT 1 /  DRAFT 1(6) 

COMMON/TEMPSTA/DXFWD,  DXAFT , TSTA<25> 

DATA  DEGREE/0.01745  32925/ 

SECTION  1.0  Compute  average  draft  at  each  station 

TSTA(J). 

No  longer  required  here.  Now  done  in  FROUDE  right 
before  the  call  to  MOCHA 

SECTION  2.0  Computations  for  Coefficients  used 

in  Wave  Ex c i t ing /Di f f r ac t i on  Force 
Calculations 


DO  10  <J=1 ,  MSTA 
DO  10  K=1 , NWAVES 

IF  (JOBCO.  EQ.  2.  OR.  JOBCO.  EQ.  4)  THEN 
IF=IFP(K> 

FX=FXP(K> 

CALL  TX I T ( TSTA( J ) ,  IT, TX  > 

ELSE  IF  (JOBCO.  EQ. 3)  THEN 
IT=ITP( J) 


NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR(2Q),  WVPHA(20), 
WN ( 20 ) ,  WNX ( 20 ) ,  WNZC20), 

CSK ( 20 ) ,  CCK ( 20 ) ,  CXK(20), 

C YK ( 20 ) ,  C  ZK ( 20 ) ,  XW(20> 


MSTA,  NPROF,  NFWD,  NAFT,  LPTS(25), 
XOFF(  25),  YOFF  ( 25,  25 ) ,  Z0FF(25,  25), 
XPROF ( 51 ) ,  YPROF ( 51 ) 


c 


f 

C 

c 

c 

c 

c 

c 

c 

I 

( 

i ( 


TX=TXP( J) 
I F= IFP ( K ) 
FX=FXP(K) 
END  IF 


C 


C 

C 

C 

C 


C 

10 

C 

CCC 

ccc 

CCC 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

ccc 

c 


c 


THAH ( J,  K )  =C0X  (IT,  TX,  IF,  FX,  1,  J) 
TSAS ( J,  K)=C0X  (  IT,  TX,  IF,  FX,  2,  J) 
TR  AR  ( J,  K)=C0X<  IT,  TX,  IF,  FX,  3,  J) 
TCCA ( J,  K)=C0X(  IT,  TX-  IF,  FX,  4,  J) 

THVHC  J,  K)=C0X( IT,  TX,  IF,  FX,  5,  J) 
TSVS  ( J,  K)=cax<  IT,  TX,  IF,  FX,  6,  J) 
TRVR  ( J,  K)=C0X<  IT,  TX,  IF,  FX,  7,  J) 
TCCV <  J,  K  )=C0X(  IT,  TX,  IF,  FX,  8,  J) 


Spatial  derivatives  in  x-direction 

THACX  (  J,  K)=COXDX(  IT,  TX,  IF,  FX,  1 ,  J  > 
TSAC  X  (  J,  K  )  =COXDX  (IT,  TX,  IF,FX,  2,  J) 
TRACX  (  J,  K )  =COXDX  (IT,  TX,  IF,  FX,  3,  J) 
TCACXCJ,  K)=COXDX( IT,  TX,  IF,  FX,  4,  J) 

CONTINUE 


SECTION  3.0  -  This  section  computes  coefficients 

for  ship  motion  related  force 
computations,  using  OMEGAX (  >  as 
the  frequency  at  which  computations 
are  performed.  DMEGAX(l)  —  HEAVE, 
OMEGAX (2)  -  SWAY,  OMEGAX (3)  -  ROLL. 
These  are  computed  in  Subroutine 
GETFREQ. 


DO  20  J=1 , MSTA 

IF(  JOBCO.  EQ.  2)  THEN 
IF=IFP ( 21 ) 

FX=FXP (21 ) 

IFH=IF 

IFS=IF 

IFR=IF 

FXH=FX 

FXS=FX 

PXR=FX 

CALL  TX IT ( TSTA ( J ) , IT,TX> 

ELSE  IF(  JOBCO.  EQ.  3)  THEN 
IT= ITP ( J  > 

TX=TXP ( J) 

CALL  FX IF (OMEGAX ( 1 ) , IFH.FXH) 
CALL  FX IF ( OMEGAX ( 2 ) , IFS,FXS> 
CALL  FX IF ( OMEGAX ( 3  > ,  IFR, FXR ) 
ELSE  IF( JOBCO.  EQ.  4)  THEN 
CALL  TX IT ( TSTA ( J ) , IT,TX> 

CALL  FX IF ( OMEGAX ( 1 > ,  IFH,  FXH) 
CALL  FX IF( OMEGAX ( 2 ) , IFS, FXS ) 
CALL  FXIF(0MEGAX(3>, IFR, FXR) 

END  IF 


( 


c 


( 


L 


nnnnn  o  noon 


THAH(J,  21 )=COX< IT,  TX,  IFH,  FXH,  1,  J) 
TSAS<  J,  21  >=COXC IT,  TX,  IFS,  FXS,  2,  J) 
TR AR  ( J, 21  )=COX( IT, TX, IFR, FXR, 3, J) 
TCCA ( J,  21 )=COX< IT,  TX,  IFS,  FXS,  J) 
C 

THVH ( J,  21  )=COX(  IT,  TX,  IFH,  FXH,  5,  J) 
TSVS  ( J,  21 )=COX< IT,  TX,  IFS,  FXS,  6,  J) 
r  TRVR  ( J,  21  )=COX(  IT,  TX,  IFR,  FXR,  7,  J) 

TCCV ( J,  21  )=COX<  IT,  TX,  IFS,  FXS,  8,  J) 


Spatial  Derivatives  in  x-directin 

THACX  ( J,  21  )=COXDX(  IT,  TX,  IFH,  FXH,  1,  J) 
TSACXCJ,  21  )=COXDX(  IT,  TX,  IFS,  FXS,  2,  J) 
THVCXCJ,  21 )  =COXDX  (IT,  TX,  IFH,  FXH,  5,  J) 
TSVCX  ( J,  21 )  =COXDX  (IT,  TX,  IFS,  FXS,  6,  J) 

20  CONTINUE 


CNote:  Vertical  derivative  of  added  mass  computed 
in  SUBROUTINE  FROUDE  or  COFFEE.  1 

RETURN 

END 


oonnonooon  nnonnnnnnnnnnnnnnnnnn 


SUBROUTINE  AQUA2D  ( TT,  YY ) 


CALCULATES  SHIP-MOTION  INDUCED  FORCES,  WAVE  INDUCED  FORCES, 
AND  OTHER  HYDRODYNAMIC  FORCES  ON  THE  SHIP. 

SECTION  DESCRIPTION 


1.  0 
2.  0 

3.  0 

4.  0 

5.  0 

6.  O 

7.  O 

8.  0 
9.  O 

10.  O 


INITIALIZATION 

FIND  WET  OFFSET  POINTS/ENDS  OF  HULL 
INITIALIZATION 

CALCULATE  VARIOUS  2-D  INTEGRALS/GEOMETRIC  INFO.  FC 

CALCULATE  FORCES  THAT  ARE  SHIP-MOTION  RELATED 

CALCULATE  DORCES  THAT  ARE  WAVE-INDUCED 

CALCULATE  OTHER  FORCES 

INTEGRATE  FORCES  OVER  LENGTH 

ADD  UP  FORCES  AND  LOAD  FORCE  ARRAY 

LOAD  MASS/INERTIA  MATRIX  A(I,J> 


NOTE:  The  hydrodynamic  coefficients  were  divided  by  sectional  area  ir 
COEFS  part  of  this  program.  They  were  also  divided  by  RHO  in  t 
subroutine.  Thus,  quantities  are  multiplied  by  DVOL 
when  they  would  normally  be  multiplied  by  DX,  and  there 
are  several  places  where  a  coefficient  is  divided  by  G  operate 
to  make  sure  that  all  the  units  are  consistent  from  force  to 
force.  At  any  point  in  the  force  calculations,  one  must 
multiply  by  GaMmA  to  obtain  force  in  lbs. 


REAL  YY ( 1 ) 


COMMON  /A 

/ 

A  (  6,  6 ) 

COMMON  /AM 

1 

/ 

YFYA,  ZFZ  A,  XMZA,  XMXR,  XMYR, 

YMZA,  YMYR ,  ZMYA,  ZMZR 

COMMON/RES I ST/SPEED 

REAL  VT ( 6 ) ,  AM ( 9 ) 

EQUIVALENCE 

(  AM ( 1 ) 

,  YFYA ) 

COMMON  /C 

/ 

C  (3,  3) 

COMMON  /CT 

/ 

CTO,  3) 

COMMON  /ETA 

/ 

YC,  XKC20) 

COMMON  /FORCE  / 

XF,  YF,  ZF,  XM,  YM,  ZM 

REAL  FORCE  <  6 ) 

l 

EQUIVALENCE 

(  FORCE  (  1  ),  XF) 

COMMON  /MASS 

/ 

RHO,  G,  GAMMA 

COMMON  /MASS 

1 

/ 

DISPL,  SMASS,  XCG,  YCG,  ZCG, 

AMX,  AMY,  AMZ,  RADI  1(6) 

COMMON  /MASS 

/ 

PM I  (3,  3) 

COMMON  /TRIG 

/ 

CTHETA,  STHETA,  CPHI,  SPHI,  CPSI,  SPSI 

COMMON  /V 

/ 

VX,  VY,  VZ 

COMMON  / 

1 

2 

3 

4 

/ 

NWAVES,  WVSUM, 

WVAMP ( 20 ) ,  WVFRE ( 20 ) ,  WVDIR(20),  WVPHAC 
WN ( 20 ) ,  WNX ( 20 ) ,  WNZ ( 20 ) , 

CSKC20),  CCK ( 20 ) ,  CXK(20>, 

CYKC20),  C  ZK ( 20 ) ,  XW(20) 

COMMON  / 

1 

2 

/ 

MSTA,  NPROF ,  NFWD,  NAFT,  LPTS(25), 

XOFF  ( 25 ) ,  Y0FF<25,  25),  ZOFF<  25,25), 

XPROF (51),  YPROF (51) 

COMMON  / 

1 

/ 

INPTS ( 25 ) ,  IPOINT  <  25) ,  YWET<25, 25),  ETA 
ZLAST  <25,  25) ,  ZWET(25,25),  ZNEXT<25,25> 

ooooon  onnnnonno 


2CY ( 20 ) i  ZSY (20) 


COMMON  /  /  ZCO ( 20 ) ,  ZS0(20>, 

1  ZC  Z ( 20 ) <  ZSZC20) 

COMMON  /  /  DZKC20) 

COMMON  /  /  USAVE ( 20  >  ,  C0SJ(20),  SINJ(20), 

$  COSJJ ( 20 ) ,  S I NUJ  < 20  ) i 

1  DWC(20),  DWS ( 20 ) »  XC I (20 ) ,  XSI (20) 

COMMON  /AREA  /  AREA,  YMOM,  ZMOM 

EQUIVALENCE  ( FWD, XPROF ( 51  > > ,  ( AFT, YPROF( 51 ) ) 

COMMON/ SXFOR/  FBU0Y(6, 25), FDAMP ( 6, 25), FADMA (6, 25) 

*  UDAMP (6, 25), UADMA (6, 25), UWVEX(6,  25) 
COMMON/SXGEOM/ AREAS ( 25  > ,  DXS(25)  ,  DX1S(25),  DX2S(25> 

*  YM0MS(25>, ZM0MS(25>, ISTA, LSTA 
COMMON/ SXOMEG/QMEGAX ( 3 ) 

COMMON/ TEMPST A/D XFWD,  DXAFT ,  TSTA(25> 

COMMON /OPT I ON/ JOBCO,  JOBFO( 10) 

DIMENSION  COLD ( 25 ) ,  CNEW(25>,  T0LD(25>, TNEW(25> 
DIMENSION  TTOLD (25 ) ,  TTNEW ( 25 ) 

REAL  ZEROF ( 1200 ) 

, FBUOY ( 1 ,  1 ) ) 

ZFB, XMB , YMB, ZM2 
ZFD,  XMD,  YMD,  ZMD, 

ZFX ,  XMX ,  YMX,  ZMX, 

ZFN,  XMN,  YMN,  ZMN, 

ZFU,  XMU,  YMU,  ZMU, 


FWVEX  ( 6,  25), 
FFLAR (6, 25) 


EQUIVALENCE  (ZEROF(l) 

COMMON/FC  OMP / XFB , YFB, 

1  XFD,  YFD, 

2  XFX,  YFX, 

3  XFN,  YFN, 

4  XFU,  YFU, 

5  YFF,  ZMF 
REAL  ZEROC (32 ) 

EQU I VALENCE  ( ZEROC ( 1 ) ,  XFB  > 

COMMQN/COEFFX  /THAH  ( 25,  21  ),  TSAS(25,  21  ),  TRAR  (25,  21  ),  TCCA(25,  21  ) , 

*  THVH  ( 25,  21  ),  TSVS  (  25,  21  ) ,  TRVR(25,  21  ),  TCCV(25,  21  ), 

*  THAC  X  ( 25,  21  ) ,  THVCX(25,  21  ),  TSACX(25,  21  ),  TSVCX(25,  21  >, 

*  TRAC  X  ( 25,  21 ) ,  TCACX(25,  21 ),  THVCY(25,  21  ), 

*  I  TP  (25),  TXP(25),  IFP  (21>,FXP(21) 

C  ***  In  it  ial  i  zation 

IF  (NWAVES.  EQ.  0)  GO  TO  120 


SECTION  1.0  -  INITIAL I AT ION 

Project  wave  numbers  into  calculation  coordinate  system 
(yaw  and  pitch  but  not  roll).  Compute  x-coord  of  wave 
crest. 


DO  110  K=l, NWAVES 

CSK(K)=CT( 1, 2)*WN(K> 

CCK ( K ) =CT ( 2,  2 ) *WN ( K ) 

CXK(K)=CT( 1,  1 ) *WNX ( K ) — CT ( 1 , 3)*WNZ(K) 

CYK(K)=CT(2,  1 )*WNX(K)-CT(2,  3>*WNZ (K) 

CZK ( K ) =CT ( 3, 1 )*WNX ( K )— CT ( 3, 3>*WNZ(K) 

DZK  (  K  )  =2.  0/C  ZK  (  K  ) 

XW ( K )  =  ( TT*WVFRE ( K ) -WVPHA ( K  >  +YY ( 3 ) *WNZ ( K  > -YY ( 1 ) *WNX ( K ) )/CXK(K) 
USAVE ( K ) =0 
110  CONTINUE 
120  CONTINUE 


1.  1  Zero  the  acceleration  force  coefficients  AM(I>  and 
zero  the  sectional  force  arrays  in  common  SXFOR. 


C4 


AM  (  I  )  =0.  0 
130  CONTINUE 
C* 

DO  131  1=1, 1200 

ZEROF ( I  >  =0.  0  !  Equivalence*}  with  COMMON/SXFOR/ 

131  CONTINUE 
C* 

C 

DO  800  I  =  1,  32 

ZEROC ( I ) =0.  ! ZEROC  is  EGUI VALENCEd  with  COMMON/FCQMP/ 

800  CONTINUE 
C 

c* 

c - 

c 

C  1.2  Load  COMMON/COEFFX/  if  JOBCO= 2,3  or  4 

C 

C - 

c 

CALL  TBAR(TT,  YY)  !Get  average  draft  at  every  sta. 

TYPE  1000,  (TSTA(J), J=l, MSTA) 

1000  FORMAT ( IX,  25F5.  1  > 

C  DO  1000  J=1 , MSTA 

C  TSTA  ( J )  =32.  8 

C1000  CONTINUE 
C 

IFCJOBCO.  NE.  1.  AND.  TT.  GT.  0.  )  CALL  MOCHA 
C 

ISTA=0 

C - 

C 

C  SECTION  2.  0  -  FIND  WET  OFFSET  POINTS  AND  HULL  ENDS 

C 

C - 

c 

C3 

C3  FIND  WET  OFFSET  POINTS. 

C3 

C3  ETA ( L )  =  Y-COORDINATE  OF  WAVE  SURFACE, 

C3  YWET(L)  *  Y-COORDINATE  OF  WET  OFFSET  POINT. 

C3  ZWET(L)  =  Z-COORDINATE  OF  WET  OFFSET  POINT. 

C3  ZLAST(L)  =  Z-COORDINATE  OF  EITHER  THE  PREVIOUS  WET  OFFSET 

C3  POINT  OR  THE  Z-COORDINATE  OF  THE  WATER  SURFACE, 

C3  ZNEXT(L)  =  Z-COORDINATE  OF  EITHER  THE  NEXT  WET  OFFSET  POINT 

C3  OR  THE  Z-COORDINATE  OF  THE  WATER  SURFACE. 

C3 

C4 

C4  KEY  INDICATES  THE  STATUS  OF  THE  SEARCH: 

C4 

C4  KEY  =  1  —  THE  FIRST  OFFSET  POINT  IS  BEING  TESTED, 

C4  KEY  =2  —  THE  LAST  OFFSET  POINT  WAS  WET, 

C4  KEY  =3  —  THE  LAST  OFFSET  POINT  WAS  DRY  (ETA  COMPUTED), 

C4  KEY  =4  —  THE  LAST  OFFSET  POINT  WAS  DRY  AND  ETAMAX  WAS 

C4  USED  (ETA  WAS  NOT  COMPUTED). 

C4 

C 

C - 

C 

DO  260  J=1 ,  MSTA 
KEY=  1 


L=0 
LWET =0 
N=LPTS ( U ) 

XXSTA=X0FF( J> 

IF  ( NWAVES.  EQ.  0 )  GO  TO  150 
DO  140  K=l, NWAVES 

XK ( K  >  =  ( X XSTA-XW  C K ) )*CXK(K> 

140  CONTINUE 

150  VC=CT ( 1<  2 ) *XXST A+YY ( 2  > 

ET  AMAX  = ( WVSUM-YC )  /  CT  ( 2, 2) 

160  Y1=Y0FF( I, J ) *C THETA- Z OFF l I, J ) *STHET  A 

Z 1 =ZOFF ( 1/ J)*CTHETA+YOFF< I, J ) *STHETA 
IF  (KEY.  LT.  3)  GO  TO  170 
C5 

C5  THE  PREVIOUS  OFFSET  POINT  WAS  DRY.  AN  ESTIMATE  OF  ETA  WILL  BE 

C5  USED  TO  SEE  IF  THIS  POINT  CAN  BE  WET. 

C5 

IF  (Yl.  LT.  ETAMAX)  GO  TO  170 
KEY=4 
GO  TO  230 
C4 

C4  COMPUTE  THE  Y-CO0RDINATE  OF  THE  WATER  SURFACE.  . 

C4 

170  ETA1 =ETAF ( Z 1 ) 

IF  (KEY.  GT.  1  )  GO  TO  180 
C5 

C5  SAVE  INITIAL  CALCULATIONS  FOR  USE  WITH  FINAL  OFFSET  POINT. 

C5  THE  INITIAL  AND  FINAL  OFFSETS  REFER  TO  THE  SAME  POINT. 

C  5 

EFIRST=ETA1' 

YFIRST=Y1 
YO=Y  1 
ZFIRST=Z1 
Z0=Z1 
C4 

C4  TEST  THE  POSITION  OF  THE  CURRENT  OFFSET  POINT  RELATIVE  TO  THE 

C4  WATER  SURFACE.  THE  IF  TEST  IS  SATISFIED  IF  THE  POINT  IS 

C4  BELOW  THE  WATER  SURFACE. 

C4 

180  IF  (Yl.LT.  ETA1)  GO  TO  (212,  210,  200,  190) ,  KEY 
C5 

C5  THE  CURRENT  OFFSET  POINT  IS  DRY.  IF  KEY=2,  THE  PREVIOUS  POINT 

C5  WAS  WET,  AND  THE  Z-COORDINATE  OF  THE  INTERSECTION  OF  THE  HULL 

C5  AND  THE  WATER  SURFACE  MUST  BE  FOUND  BY  INTERPOLATION. 

C5 

IF  (KEY.  NE.  2 )  GO  TO  181 

ZNEXT ( L,  U)  =  ( Z1-Z0)/(Y1-ETA1+EY)*EY+Z0 

LWET=L 

181  KEY=3 

GO  TO  220 
C5 

C5  IF  KEY  =  4,  THE  ETA  VALUE  FOR  THE  LAST  OFFSET  POINT  WAS  NOT 

C5  COMPUTED.  COMPUTE  ETA.  . 

C  5 

190  EY=ETAF(ZO)-YO 
C5 

C 5  THE  CURRENT  OFFSET  POINT  IS  WET,  AND  THE  PREVIOUS  POINT  IS  DRY. 

C5  INTERPOLATE  TO  FIND  THE  INTERSECTION  OF  THE  HULL  AND  THE  WATER 

C5  SURFACE.  . 

C5 


200  Z0=Z0+ ( Z1-Z0  > / ( Y1-ETA1+EY  >*EY 

GO  TO  211 
C  4 

C4  A  WET  OFFSET  POINT  HAS  BEEN  LOCATED.  STORE  THE  REQUIRED 

C4  COORDINATE  VALUES.  . 

C4 

210  ZNEXT (L<  J) =Z1 

211  IF  (  I.  EQ.  N)  GO  TO  240 

212  L=L+ 1 

ETA (L, J)=ETA1 
YWET ( Li J)=Y1 
ZWETCL, J)=Z1 
ZLASTCL, J)=ZO 
KEY=2 
C5 

C 5  SAVE  THE  COMPUTED  COORDINATE  OF  THE  WATER  SURFACE.  . 

C5 

220  EY=ETA1-Y1 

C  5 

C5  SAVE  THE  COORDINATES  OF  THE  OFFSET  POINT.  . 

C5 

230  YO=Y 1 

Z0=Z1 
C4 

C4  INCREMENT  THE  INDEX  OF  THE  OFFSET  POINT  FOR  THIS  STATION.  IF 

C4  THE  INDEX  DOES  NOT  REFER  TO  THE  LAST  POINT,  REPEAT  THE  LOOP. 

C4 

1  =  1  +  1 

IF  (  I.  LT.  N)  GO  TO  160 
IF  (I.  GT.  N)  GO  TO  250 
C5 

C5  FOR  THE  LAST  OFFSET  POINT,  THE  VALUES  OF  ETA1 ,  XI,  AND  Y1  ARE 

C5  THE  SAME  AS  FOR  THE  FIRST  OFFSET  POINT.  REPEAT  THE  LOOP  USING 

C5  THESE  VALUES.  . 

C5 

ETA1 =EFIRST 
Y1=YFIRST 
Z1=ZFIRST 
GO  TO  180 
C4 

C4  A  COMPLETE  SEARCH  OVER  ALL  THE  OFFSET  POINTS  FOR  THE  CURRENT 

C4  STATION  HAS  OBTAINED  L  WET  OFFSET  POINTS.  RESET  ZLAST(l) 

C4  IF  THE  LAST  (AND  ALSO  THE  FIRST)  OFFSET  POINT  IS  WET.. 

C4 

240  ZLAST ( 1 , J ) =Z0 

250  I NPTS ( J ) =L 

IF  (L.  EQ.  O)  GO  TO  260 
IF  (LWET.EQ.  L)  LWET=0 
I  POINT ( J )=LWET+1 
LSTA=J 

IF  (ISTA. EQ.  0)  ISTA=J 
C3 

260  CONTINUE 

IF  (ISTA.  EQ.  0)  GO  TO  520 
C3 

C3  FIND  ENDS  OF  WETTED  HULL.  . 

C3 

C3  XXF  =  X-COORDINATE  FORWARD 

C3  XXA  =  X-COORDINATE  AFT 

C3 

XXF=XOFF( ISTA) 


XXA=XOFF ( LSTA ) 

IF  ( NPROF.  EQ.  0 )  GO  TO  410 
C4 

C4  SEARCH  FOR  ENDS  USING  THE  PROFILE  DATA. . 

C4 

C4  XLAST  —  X-COORDINATE  OF  PREVIOUS  PROFILE  POINT 

C4  XXSTA  —  X-COORDINATE  OF  PRESENT  PROFILE  POINT 

C4  ETABAR  —  WAVE  ELEVATION  IN  ABSOLUTE  COORDINATES 

C4  YO  —  SUBMERGENCE  OF  PREVIOUS  PROFILE  POINT  (LAST.  EQ.  1) 

C4  Y1  —  SUBMERGENCE  OF  PRESENT  PROFILE  POINT 

C4  I END=0  —  FORWARD  END  OF  SHIP 

C4  IEND=1  —  AFT  END  OF  SHIP 

C4  KEY=— 1  —  SUBMERGENCE  OF  PRESENT  PROFILE  POINT  UNKNOWN 

C4  KEY=0  —  WAVE  ELEVATION  NOT  COMPUTED 

C4  KEY=1  —  WAVE  ELEVATION  COMPUTED 

C4  LAST  —  KEY  VALUE  FOR  PREVIOUS  PROFILE  POINT 

C4  LWET=0  —  PREVIOUS  PROFILE  POINT  WAS  DRY  (LAST.  GE.  0) 

C4  LWET=1  —  PREVIOUS  PROFILE  POINT  WAS  SUBMERGED  (LAST.  GE.  0) 

C4 

XLAST=XPROF( 1 ) 

LAST=-1 

DO  400  1=2, NPROF 
KEY=-1 
TEND=0 

XXSTA=XPROF( I > 

IF  (XXSTA.  GT.  XXF)  GO  TO  270 
IEND=1 

IF  (XXSTA.  LT.  XXA)  GO  TO  270 
IF  (XLAST.  GE.  XXA)  GO  TO  390 
270  KEY=0 

Y1=YPR3F ( I ) *C ( 2 1 2 )  +  X  XST A*C ( 1 , 2)-YY(2) 

IF  ( Yl.  LT.  -WVSUM)  GO  TO  310 
IF  (Yl.  GT.  WVSUM)  GO  TO  280 
Y1=ETABAR ( I )-Yl 
KEY=1 

IF  (Yl.  GE.  O.  0)  GO  TO  310 
C5 

C 5  POINT  IS  DRY. 

C5 

280  IF  (  I  END.  NE.  O )  GO  TO  300 
IF  (LAST.  LT.  0)  GO  TO  290 
IF  (LWET.  EQ.  O)  GO  TO  300 
IF  (LAST. NE. 0)  GO  TO  340 
290  YO=YPROF ( I  — 1 )*C (2,  2 )  +  XLAST*C ( 1 ,  2)-YY(2) 

IF  ( YO.  GT.  WVSUM )  GO  TO  300 
YO=ETABAR ( 1-1 )-Y0 
IF  (YO.  GE.  0.  O)  GO  TO  340 

300  LWET =0 

GO  TO  380 
C5 

C5  POINT  IS  WET. 

C5 

310  IF  (IEND.NE.  0)  GO  TO  320 

XXF=XXSTA 
LWET=1 
GO  TO  380 

320  IF  (LAST.  LT.  0)  GO  TO  330 
IF  (LWET.  NE.  0)  GO  TO  360 
IF  (LAST.  NE.  0)  GO  TO  340 
YO=YPROF ( I - 1 )*C (2,  2)  +  XLAST*C( 1,  2>-YY(2> 

IF  (YO.  LE.  -WVSUM)  GO  TO  360 


330 


nnnnn  o  nnonno  ooooonooon 


YO=ETABAR ( 1-1 >-Y0 
IF  (YO.GE.  0.  0)  GO  TO  360 
C  5 

C 5  INTERPOLATE  FOR  WATERLINE. 

C5 

340  IF  (KEY.  NE.  0)  CO  TO  350 
Y1=ETABAR ( I >-Yl 
KEY=  1 

350  X  XSTA= ( XPROF ( I- 1 ) -XXSTA  > / ( Y1 -Y0  >  +  XXSTA 
IF  (iEND.NE.  0)  GO  TO  360 
IF  (  XXSTA.  GT.  XXF)  XXF=XXSTA 
GO  TO  370 

360  IF  (XXSTA.  LT.  XXA)  XXA=XXSTA 
370  LWET=IEND 

380  Y0=Y 1 

390  LAST  =KEY 

XLAST=XXSTA 
400  CONTINUE 

410  IF  (NFWD.  NE.  1)  GO  TO  420 
IF  (XXF.LT. FWD)  XXF=FWD 
420  IF  (NAFT.  NE.  5  >  GO  TO  430 
IF  (XXA.  GT.  AFT)  XXA=AFT 
C3 


SECTION  3.0  ANOTHER  INITIALIZATION 

Resolve  velocity  vector  into  yawed  and  pitched  coord's, 
NOTE:  Forres  are  calculated  in  local  (ship)  coordinate 
system. 


430  VT ( 1 )=VX 

VT  ( 2 ) =VY*CTHETA-VZ*STHETA 
VT ( 3 ) =VZ*CTHETA+VY*STHETA 
VT(4)=YY( 10) 

VT ( 5 ) =YY ( 1 1 ) *C  THET A- Yv (12) *STHETA 
VI ( 6 ) =YY (12) *CTHETA+YY ( 1 ! )*STHETA 


Loop  over  wet  statiors  ISTA  to  LSTA. 

Also  check  to  see  if  ship  is  out  of  water  (SMALL) 


LSAVE=0 

SMALL= ( X XF-XX A ) * 1 .  0E-06 
IF  (SMALL.  LE.  0.  0)  GO  TO  520 
XXSTA=XXF 

DO  510  J= I STA. LSTA 


Section  4.  1  -  Get  geometric  station  data/  e.  g.  DX. 


XXFWD=XXSTA 
XXSTA=XOFF( J> 

IF  ( INPTS ( J ) .  EQ.  0  >  GO  TO  510 
YC=YY(2)+CT( 1/  2 ) *XXSTA 
IF  (J.  NE.  LSTA  >  GO  TO  331 


ooonoooonnonoo  noon  nnnnnnnn  nooono 


XXAFT=XXA 
CO  TO  332 

331  XX AFT=XOFF  <  J+l ) 

332  CONTINUE 
DXFWD=X  XFWD-X  XST  A 
DXAFT=XXSTA-XXAFT 

DX  =  <  DXFWD+DXAFT ) /2.  0 
XA=XXSTA-DXAFT/3.  0 
XB=XXST A+DXFWD/3.  0 
DXl=<DXFWD*XB+DXAFT*XA)/2.  0 

DX2= ( DXFWD*XB**2+DX AFT*XA**2 ) /2. 0+ ( DXFWD**3+DXAFT**3 > /36.  0 


Section  4.  2  -  Call  KRYLOV  by  section  (j)  and  get  2-D 
integrals  for  that  station. 


CALL  KRYLOV  (J) 


Section  4.  3  -  Compute  the  sectional  volumes  arid  moments 
about  center  of  mass. 


DVQL=AREA*DX 
ADX 1 =AREA*DX 1 
ADX2=AREA*DX2 
YDX=YMOM*DX 
ZDX=ZMOM*DX 


Load  COMMON /SXGEOM/ 
AREAS ( J ) =AREA 
DXS ( J ) =DX 
DX IS ( U ) =DX 1 
DX2S ( J ) =DX2 
YMOMSC J)=YMOM 
ZMOMS ( J ) =ZMQM 


SECTION  5.  O  -  SHIP  MOTION  RELATED  FORCES 


FBUOY( I, J)  -  Buoy  force 
FDAMP(I.J)  Damping  force 

FADMA ( I , J )  -  Added  Mass  Force  for  purposes  of  analysis 
only  since  the  added  mass  actually  goes 
on  the  left  hand  side  of  the  Equations. 


Section  5.  1  -  Buoyancy  Force 


FBUOY ( 1 / J ) =CT (1,2) *DVOL 
FBUOY  ( 2.  U )  =CT  ( 2.  2  >  *DVOL 
FBUOY  ( 3,  U)=0. 

FBUOY  (4,  j  >  — -CT  (2.2>*ZDX 
FBUOY (5,  J)=CT( 1, 2>»ZDX 


C 
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FBUOY (6, J)=  CT ( 2,  2)*ADX1-CT< 1, 2)*YDX 


Section  5.  2  -  Damping  force 

Get  damping  coefficients  ... 

This  section  will  be  changed  to  reflect  the 
dependency  on  frequency  of  ship  motion. 

HVH=COEFF< 1. 2.  J) /G 
SVS=COEFF( 2/  2/  J)/G 
RVR=C0EFF(3,  2,  J)/G 
CCV=CQEFF( 4> 2,  J)/G 

HVH=THVH ( J< 21 )/G 
SVS=TSVS ( J» 21 )/G 
RVR=TRVR ( J,  21 >/G 
CCV=TCCV ( J< 21)/G 

HAH=THAH(J,  21 ) 

SAS=TSAS(J,  21 > 

RAR=TRAR  ( J,  21  ) 

CCA=TCCA(J,  21 ) 

VS=VT ( 5 > *ADX 1 -VT  <  3 ) *DVOL 

VR=VT(4)*DV0L 

FDAMP ( 1 ,  J)=0. 

FDAMP ( 2. J )  -  ( VT ( 4 ) *ZDX-VT ( 2 ) *DVOL-VT  <  & ) *ADX 1 ) *HVH 
FDAMP (3, J)=VS*SVS-VR*CCV 
FDAMP (4,  J)=VS*CCV-VR*RVR 

FDAMP ( 5, J ) * ( VT ( 3 > * ADX 1 -VT ( 5 ) *ADX2 ) *SVS+VT ( 4 ) *ADX 1*CCV 
FDAMP (6/  J)=(VT<4)*ZM0M*DX1-VT(2>*ADX1-VT(6>*ADX2>*HVH 


Section  5.  3  -  Speed  terms 
5.  3.  1  -  Speed  terms  associated  with  damping 

UDAMP ( 1 » J)=0. 

UDAMP ( 2» J )  =  <  2.  *SPEED*YY ( 6 ) >*HVH*DVOL 
UDAMP (3, J ) =- ( 2.  *SPEED*YY<5) >*SVS*DVOL 
UDAMP (4, U)=0. 

UDAMP ( 5. J)  =  (2.  *SPEED*YY ( 5  > )*5VS*ADX1 
UDAMP (6, J)  =  ( 2.  *SPEED*YY ( 6 ) >*HVH*ADX1 


:ra  speed  terms  from  extended  strip  (X  SCORES) 
U2TEMP= ( YY ( 2  >  *DVOL+YY ( 6 ) *ADX 1 +SPEED*DVOL* 

( VT ( 6 ) /OMEGAX ( 1 > **2 ) )*<THVCX(J,  21 >/G>* 
SPEED 

UDAMP ( 2,  J ) =UDAMP 12,  J) +U2TEMP 

UDAMP  (.6,  J )  =UDAMP  (6.  J  > -MJ2TEMP*  (  ADX1 /DVOL) 

5.3.2  Speed  terms  associated  with  added  mass 

UADMA ( 1 , J)=0. 

UA2t  =  (2.  *SPEED*VT<6) )*(HAH/G)*DVOL 


nnonon  nooooooo  oo 


1 


1 


1 


UA22= ( VT ( 4  > *ZD X -VT ( 2  >  *DVDL- VT ( 6  >  * ADX 1 +SPEED*YY ( 6 > 
*DVOL)*SPEED*(THACXCJ, 21) /G) 

UADMA ( 2/  J ) =U  A2 1 — UA22 
UA31  =  (-2.  *SPEED*VT(5>  > * ( SAS/G > *UVOL 
UA32=  C VS-SPEED# YY ( 5 ) )*<TSACX< J,  21 >/G>*SPEED 
UADMA (3, J  >  =UA3 1 +UA32 
UADMA (4, J)=-VR*SPEED*TRACX( J, 21 )/G 
UA51  = ( 2. *SPEED*VT(5> ) * ( SAS/G > *ADX 1 
UA52=( ( SPEED* YY ( 5 ) *ADX1 )  +  <  VT ( 3 ) *ADX1-VT ( 5 ) *ADX2> ) 
*SPEED*TSACX ( J< 21 >/G 
UADMA (5, J ) =UA51 +UA52 
UA61  =  (2. *SPEED*VT(6> > * < HAH/G ) *ADX1 
UA62=( ( SPEED* YY ( 6 ) *ADX 1  )  +  ( VT ( 4  >  *ZMOM*DXl— VT ( 2 >* 
ADX 1 -VT ( 6  > *ADX2 > ) *SPEED*THACX ( J, 21 )/G 
UADMA ( 6 ,  J  >  =U A6 1 -UA&2 


YFYA=HAH*DVOL+YFYA 
ZFZA=SAS*DVOL+ZFZA 
XMZA=CCA*DVOL+XMZA 
XMXR=RAR*DVOL+XMXR 
XMYR=XMYR— CCA*ADX 1 
YMZA=YMZA— SAS*ADX 1 
YMYR=SAS*ADX2+YMYR 
ZMYA=HAH*ADX 1 +ZMYA 
ZMZR=HAH*ADX2+ZMZR 


Section  5. 4  -  Force  due  to  weight  of  ship 


XFW=-CT(1,  2)*DISPL 
YFW=-CT(2, 2)*DISPL 


Section  7.  2  -  So  called  "flare"  force 


IF(TT. EG.  TTOLD(J) )  GO  TO  721 
TNEW ( J ) =TSTA ( J ) 

TAVG=TSTA< J> 

CALL  TXIT(TAVG,  IT,  TX> 

CNEW  (  U)  =COX  (IT/  TX/  11,  1,  1,  J)*ARX<  IT,  TX»  J>/G 
TTNEUJ  ( J )  =TT 
DC=CNEW ( J ) -COLD ( J  > 

DT=TNEW ( J ) -TOLD ( J ) 

DTT=TTNEW ( J ) -TTOLD  <  J  > 

TOLD ( J ) =TNEW  <  J ) 

TTOLD < J)=TTNEWC J) 

COLD ( J ) =CNEW ( J ) 

IF  (DT.  GT.  0.  .  AND.  DTT.  NE.  0.  >  THEN  IRelative  Velocity  indicates 

FFLAR (2i J >  =  (DT/DTT  >  **2* ( DC/DT  >  *DX 

FFLAR (6/  J)  =  ( DT/DTT  >  **2* < DC /DT ) *DX 1 

ELSE  !  Relative  velocity  indicates  emergence 

FFLAR  (2/  J>=0. 

FFLAR  <6,  J>=0. 
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END  IF 
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473 


CONTINUE 


'.Skip  to  here  when  TT=TTOLD 


If  there  are  no  uiavesi  skip  over  the  uave  loop  — 

CDo  5003  and  go  to  510  (the  other  side  of  the  section 
loop  ) . 

IF  ( NWAVES.  EQ.  0 )  GO  TO  510 


SECTION  6.  0  -  WAVE-INDUCED  FORCES 


IF  ( LSAVE.  NE.  0  >  GO  TO  450 

IF  (DXFWD.  LT.  SMALL)  GO  TO  441 

DDXFWD=1. Q/DXFWD 

GO  TO  460 

DDXFWD=0.  0 

GO  TO  460 

DDXFWD=DDXAFT 

IF  (DXAFT.  LT.  SMALL)  GO  TO  461 
DDXAFT=1 . O/DXAFT 
GO  TO  470 
DDXAFT=0.  0 

LSAVE=LSTA-U 

IF  (LSAVE.  NE.  0)  LSAVE=INPTS ( J+l > 


Loop  over  waves  (frequency  index  K) 


DO  500  K=l,  NWAVES 


Section  6.  1  -  Compute  integration  multipliers.  .  . 

DXCOS,  DXSINi DXICOSi DX1SIN. 


XWC=XW(K) 

XWSTA=XXSTA— XWC 

SQSTA=XWSTA**2 

XWAFT=XXAFT— XWC 

SQAFT=XWAFT**2 

XWFWD=XXFWD— XWC 

SQFWD=XWFWD**2 

DXWAFT=XWAFT*DDXAFT 

DXWFWD=XWFWD*DDXFWD 

WCOSB=CXK(K> 

IF  (JSAVE(K).  EQ.  0)  GO  TO  472 
COSSTA=COS J ( K ) 

S INSTA=S INJ ( K ) 

GO  TO  473 
CONTINUE 

ARGSTA=WCOSB*XWSTA 
CDSSTA=COS ( ARGSTA ) 

S I NSTA=S IN ( ARGSTA ) 

CONTINUE 


c 


r 


c 


c 

c 


c 

480 


C 


C 

481 


C 

482 


C 


1 

2 

1 
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C 

490 


IF  ( ABS ( WC0SB*DX ) .  0T.  0.  01)  GO  TO  480 

DXCOS=DX*COSSTA 
DXSIN=DX*SINSTA 
DX 1C0S=DX 1 *COSSTA 
DX1SIN=DX1*SINSTA 
JSAVE(K) =0 
GO  TO  490 


WC0SB2=2.  O/WCOSB 
XCSTA=COSSTA*XWSTA 
XSST  A=S INSTA*XWSTA 

IF  ( JSAVE(K).  EQ.  0>  GO  TO  481 
COSFWD=COSJJ<K) 

S I NFWD=S I N J J  <  K  > 

DWCFWD=DWC<K) 

DWSFWD=DWS(K) 

XC IFWD=XC I <  K ) 

XSIFWD=XSI <K) 

GO  TO  482 


ARGFWD=WCOSB*XWFWD 
COSFWD=COS  <  ARGFWD > 

S I NFWD=S I N ( AR  GFWD ) 

DWICFWD=  ( COSFWD-COSSTA )  /WCOSB 
DWSFWD= ( S I NFWD-S I NSTA > /WCOSB 
XCIFWD=(SINFWD*XWFWD-XSSTA+DWCFWD)*DDXFWD 
XSIFWD=(XCSTA-COSFWD*XWFWD+DWSFWD)*DDXFWD 


ARGAFT=WCOSB  *  X WAFT 
COSAFT=COS ( ARGAFT ) 

S I N AFT=S I N ( AR GAFT  > 

DWC AFT= ( COSSTA-COSAFT  > /WCOSB 

DWS AFT=  <  S I NST A-S I N AFT ) /WCOSB 

XC  I  AFT=  (  X SST  A-S  I NAFT •*  XWAFT +DWC  AFT  >  *DDX  AFT 

XS I AFT— ( COSAFT* XWAFT- XCSTA+DWSAFT ) *DDX AFT 


DXCOS= ( XC I AFT— XC IFWD ) /WCOSB— DXWAFT*DWSAFT+DXWFWD*DWSFWD 
DXSIN=( XSI AFT-XS I FWD ) /WCOSB+DXWAFT*DWC AFT-DXWFWD*DWCFWD 
DX 1 COS=X WC*DXCOS+ <  < SQST A*S I NST A-SQ AFT *S I NAFT ) *DDX AFT+ ( SQSTA* 
SINSTA-SGFWD*SINFWD )*DDXFWD+<  XSIFWD— XSIAFT)*WC0SB2+XWFWD*XC I 
FWD— XWAFT* XC I AFT ) /WCOSB 

DX 1 S IN=XWC*DXS IN+ ( <  SGFWD*COSFWD-SQSTA*COSSTA ) *DDXFWD+ ( SQAFT* 
COSAFT-SQSTA*COSSTA ) *DDXAFT+ ( XC I AFT-XC IFWD ) *WC0SB2+XWFWD*XSI 
FWD-XWAFT*XSI AFT) /WCOSB 


JSAVE(K)=LSAVE 

IF  ( LSAVE.  EQ.  0)  GO  TO  490 

COS J ( K ) =COSAFT 

SIN J ( K ) =SINAFT 

COSJJ (K ) =COSSTA 

SIN J J (K ) =SINSTA 

DWC  <  K ) =DWC AFT 

DWS  <  K ) =DWSAFT 

XCI (K)=XCIAFT 

XSI (K)=XSIAFT 

CONTINUE 

EXPSTA=EXP <  WN ( K ) *YC ) *WVAMP ( K ) 


noon  noon  oonoooonooooooo 


DXCOS=DXCOS*EXPSTA 
DXSIN=DXSIN*EXPSTA 
DX1C0S=DX 1C0S*EXPSTA 
DX1SIN=DX1SIN*EXPSTA 


Section  6. 2  -  Compute  exciting  forces  (wave  dynamic 
pressure  plus  diffraction  force) 


HVH=COEFF ( 1 ,  2, J  > /WVFRE ( K ) 
SVS=COEFF (2/  2»  J) /WVFRE ( K ) 
RVR=C0EFF(3,  2, J)/WVFRE(K> 
CCV=CQEFF ( 4/  2,  J)/WVFRE(K> 


HAH=THAH ( J»  K ) 
HAH=HAH+1. 
SAS=TSAS( J.  K) 
SAS=SAS+1. 
RAR=TRAR( J,  K> 
CCA=TCCA  ( J#  K  > 


HVH=THVH ( Jj  K) /WVFRE ( K ) 
SVS=TSVS ( J, K ) /WVFRE ( K ) 
R VR=TRVR ( J, K ) /WVFRE ( K ) 
CCV=TCCV ( Ji K ) /WVFRE (K ) 


AH1=CYK(K)*ZS0(K)-CCK<K>*ZC0(K> 

AH2=CCK(K>*ZS0(K)+CYK(K)*ZC0CK) 

ASl=CZK(K)*ZSO(K> 

AS2=CZK (K)*ZCO(K> 

AR1=CZK(K)*ZSY(K)+CCK(K)*ZCZ(K)-CYK(K)*ZSZ(K) 
AR2=CZK (K)*ZCY(K) — CCK ( K  >  *ZSZ ( K ) — C YK (K)*ZCZ(K) 

FWVEX ( 1 ,  J )  =  ( CXK ( K ) *ZSO ( K )— CSK (K  >  *ZCO ( K ) >*DXCOS 
1  +(CXK(K)*ZCO(K)+CSK(K)*ZSO(K) ) *DXSIN+FWVEX ( 1 ,  J) 

YF 1 = AH 1 *HAH+ AH2*HVH 
YF2=AH2*HAH-AH1*HVH 

FWVEX (2.  J>=YF1*DXCQS+YF2*DXSIN+FWVEX<2, J) 

ZF 1 =AS1 *SAS+AS2*SVS+ ( AS 1 *CC A+AS2*CCV ) *WN ( K ) 
ZF2=AS2*SAS- AS1 *5VS+ ( AS2*CC A-AS1 *CCV ) *WN ( K ) 

FWVEX ( 3» J ) =ZF1*DXC0S+ZF2*DXS IN+FWVEX ( 3» J) 

FWVEX ( 4,  J )  =  ( AR 1  +  ( AS1*R AR+AS2*RVR ) *WN < K ) +AS1*CCA+ 

1  AS2*CC V  >  *DXCOS+ ( AR2+ ( AS2*R AR-AS 1 *R VR  >  *WN ( K ) +AS2*CC A 

2  -AS1*CCV)*DXSIN+FWVEX(4, J) 

FWVEX (5,  J>=(CXK(K)*ZSZ(K)-CSKCK>*ZCZ(K> )*DXCOS+ 

1  (CXK(K>*ZCZ(K>  +CSK (K ) *ZSZ (K  > > *DXSIW-ZF1*DX1C0S-ZF2 

2  *DX  IS  IN+FWVEX  (  5«  J) 

FWVEX  (6i  J ) «=  (  CSK (K  >  *ZC Y (K > -CXK ( K  > *ZSY( K)  )*DXCOS- 

1  ( CSK ( K ) *ZSY ( K ) +CXK ( K ) 

2  *ZCY(K> >*DXSIN+YF1*DX1C0S+YF2*DX1SIN+FWVEX<6,  J> 


r 


r 

v 


r 


c- 


c 

c 

c 

c 


C3 

c 

c 

c - 

C  6.3  Speed  dependent  wave-exciting  terms 

C 

DADX=SPEED*THACX< J, K)/WVFRE(K>  'Turns  acc.  's  into  Vel 's 
UWVEX  (2/  J)=AH1*DADX*DXSIN-AH2*DADX*DXC0S+UWVEX<2,  J) 

C  Another  speed  term  -  spatial  derivative  of  damping  in  x 

C  DCDX=SPEED* ( THVC  X ( J,  K ) /G ) *DVOL*WVFRE < K ) /OMEGAX ( 1 ) 

C  UWVEX (2, J)=UWVEX<2, J > +DCDX*ETAY ( J,  K> 

UZF1=AS1*TSACX< J, K ) +AS2*TSVC  X ( Ji K) 

UZF2=AS2*TSACX (J> K ) -AS1*TSVCX < J, K ) 

UWVEX (3,  J )  =  ( -UZF1 *DXS IN+UZF2*DXC0S ) *  < SPEED/WVFRE ( K > ) 

1  +UWVEX ( 3/ J ) 

UWVEX ( 4»  J )  =0.  !  Modifu  this 

UWVEX  <  5/ J )  =  ( — UZF1 *DX 1SIN+UZF2*DX1C0S  >* ( SPEED/WVFRE(K ) > 

1  +  UWVEX (5, J) 

UWVEX (6,  J) =AH1 *DADX#DX IS IN-AH2*DADX*DX1C0S 
C  DCDX 1=SPEED* ( THVC  X ( J,  K  > /G ) *ADX 1 *WVFRE ( K > /OMEOAX C 1 > 

C  UWVEX ( 6/ J)=DCDX1*ETAY( J, K)+UWVEX(6,  J) 

C 

c - - - 

c 

500  CONTINUE 
510  CONTINUE 

C - 

c 

C  SECTION  7.  0  -  OTHER  FORCES 

C 

C  Force  resulting  from  acceleration  caused  by  the  rotating 

C  coordinates. 

C 

C - 

YA=VT (6) *VT ( 1 ) — VT ( 4 ) *VT ( 3 ) 

YA=YA/G 

ZA=VT ( 4 ) *VT ( 2 ) — VT  <  5 ) *VT  < 1 ) 

ZA=ZA/G 

XFN=0. 

YFN=YFYA*YA 

ZFN=ZFZA*ZA 

XMN=XMZA*ZA 

YMN=YMZA*ZA 

ZMN=ZMYA*YA 

C 

c - 

c 

c 

c  SECTION  e.  0  -  INTEGRATE  FORCES  ALONG  LENGTH  OF  HULL 

C 

C - 

C  Section  8.  1  -  Integrate  buoyancy  force 


C 

DO  801  U=ISTA»  LSTA 
XFB=FBUOY( 1.  J ) +XFB 
YFB=FBUOY ( 2, J ) +YFB 
ZFB=F8U0Y ( 3i J ) +ZFB 
XMB=FBUOY ( 4.  J >  +XMB 


c 


r 


801 

C 

c — 
c 

c — 
c 


802 

C 

C - 

C 

C - 

c 


803 

C 

C - 

C 

C - 

C 

C 


804 

814 

C 

C — 

c 

c — 
c 


805 

815 

C 

C — 
C 

c 

C4 


YMB=FBUOY<  5# J)+YMB 
ZMB=FBU0Y<6,  J)+ZMB 
CONTINUE 


Section  8.  2  -  Integrate  damping  fc.rce 


DO  802  J=ISTA,  LSTA 
XFD=FDAMP ( 1 1  J >  +  XFD 
YFD=FDAMP ( 2, J ) +YFD 
ZFD=FDAMP ( 3/ J  >  +ZFD 
XMD=FDAMP ( 4, J  >  +XMD 
YMD=FDAMP  <  5, J  >  +YMD 
ZMD=FDAMP ( 6, J > +ZMD 
CONTINUE 


Section  8. 3  -  Integrate  exciting  force 


DO  803  J=ISTA,  LSTA 
XFX=FWVEX ( 1 #  J )+XFX 
YFX=FWVEX  <  2, J ) +YFX 
ZFX=FWVEX<3,  J)-*-ZFX 
XMX=FWVEX ( 4,  J ) +XMX 
YMX=FWVEX  (  5,  J )  +YMX 
ZMX=*FWVEX  ( 6<  J)+ZMX 
CONTINUE 


Section  8. 4  -  Integrate  Speed  Related  forces 


IF(J0BF0(2).  NE.  1  >  GO  TO  814 

DO  804  J=ISTAi LSTA 

XFU=UDAMP ( 1 j  J) +U ADMA (1 ,  J >  +UWVEX ( 1 . J > + XFU 
YFU=UDAt1P  ( 2,  J )  +UADMA  ( 2,  J )  +UWVEX  ( 2,  J  >  +YFU 
ZFU=UDAMP  <  3» J ) +UADMA (3» J>+UWVEXC3,  J)+ZFU 
XMU=UDAMP  <  4,  J  > +UADMA ( 4,  J ) +UWVEX ( 4.  J  > +XMU 
YMU=UDAMP  (  5,  J )  +UADMA  ( 5,  J )  +UWVEX  (  5,  J )  +YMU 
ZMU=UDAMP <6,  J) +UADMA ( 6,  J ) +UWVEX ( 6,  U >  +ZMU 
CONTINUE 

CONTINUE  !Go  directly  here  to  skip  over 


Section  8.  5  -  Integrate  flare  force 


IF(J0BF0<3).  NE.  1  >  GO  TO  815 
DO  805  U=ISTAj  LSTA 
YFF=FFLAR ( 2, J  >  +YFF 
ZMF=FFLAR ( 6, J  >  +  ZMF 
CONTINUE 

CONTINUE  IDirectly  to  here  to  skip  over 


SET  UP  MATRIX  OF  FORCE  COEFFICIENTS  FOR  FORCES  AND  ACCELERATIONS 


nnnnnnn  o  nnnnnnnnnnn 


IN  SHIP  COORDINATE  DIRECTIONS.  . 


C4 

C4 

C4 


520  CONTINUE 


SECTION  9. 0  -  TOTAL  FORCES 

Arid  up  forces.  Then  resolve  forces  and  moments  into  the 
ship  offset  coordinate  sgstem. 


XFT=XFB+XFD+XFX+XFN+XFW+XFU 

YFT=YFB+YFD+YFX+YFN+YFW+YFU+YFF 

ZFT=ZFB+ZFD+ZFX+ZFN+ZFU 

XMT=XMB+XMD+XMX+XMN+XMU 

YMT=YMB+YMD+YMX+YMN+YMU 

ZMT=ZMB+ZMD+ZMX+ZMN+ZMU+ZMF 

XF=XFT*GAMMA 

YF=YFT*GAMMA 

TEMP=YF 

ZF=ZFT*GAMMA 

YF=YF*CTHETA+ZF*STHETA 

ZF=ZF*CTHETA-TEMP*STHETA 

XM=XMT*GAMMA 

TEMP=YMT 

YM= <  YMT*CTHETA+ZMT  *STHETA  >  *GAMMA 
zn=  (  ZMT *C  THET A-TEMP *STHET A )  *GAMMA 


SECTION  10.0  -  LOAD  MASS/INERTIA  MATRIX  A(I.J) 


A<2,  4 )  =0.  O 
DO  530  1  =  1.  9 

AM ( I ) =RHQ*AM ( I ) 

530  CONTINUE 

CC=CTHETA**2 

CS=CTHETA*STHETA 

SS=STHETA**2 

A(2. 2>=YFYA*CC+ZFZA*SS+SMASS 
A(2. 3 ) = ( ZFZA-YFYA ) *CS 
A  (3/  2)=A(2.  3) 

A( 2.  5>=ZMYA*CS 
A( 2. 6>=ZMYA*CC 

A ( 3. 3)=ZFZA*CC+YFYA*SS+SMASS 
A(  3. 4 ) =XMZA*C THETA 
A C  4.  3 )  =A  C 3.  4) 

A(  4. 2 ) =XMZ A*STHET A 
A  (  4. 4)=XMXR+PMI (1,  1  > 

A( 4. 5 ) =XMYR*CTHET A+PMI ( 1 » 2) 

A (  5.  4  )  =A  (  4.  5) 

A ( 4. 6)=PMI ( 1.  3>-XMYR*STHETA 
A(6,  4  >  =A ( 4. 6) 

A (5.  2 )  =  ( ZMYA+YMZA ) *CS 


A < 6<  3>=A<3,  6) 

A  <  5> 3>*YMZA*CC-ZMYA*SS 
A ( 3»  5 )  —  A (  5<  3) 

A <  5/ 5)=YMYR*CC+ZMZR*SS+PMI <2, 2) 
A ( 5» 6 ) = ( ZMZR-YMYR ) *CS+PMI <2/ 3) 

A ( 6#  5  >  -A  (  5<  6) 

A ( 6» 2>=ZMYA*CC-YMZA*SS 

A  ( 6> 6>=ZMZR*CC+YMYR*SS+PMI<3,  3) 

RETURN 


noon  non 


bUtfKUUliNL  HULL. 

This  subroutine  calculates  hull  girder  loads 


COMMON  /C  /  C  (3,  3  > 

COMMON/ 10/ INPUT ,  OUTPUT ,  BIF,  OFF,  COF 
INTEGER  OUTPUT,  B IF, OFF,  COF 
COMMON  /  /  NWAVES,  WVSUM, 

L  WVAMPC20),  WVFRE ( 20 ) *  WVDIR(20),  WVPHA(20), 

l  WN ( 20 ) ,  WNX ( 20 ) ,  WNZ ( 20  > , 

3  CSK ( 20 ) ,  CCK ( 20 ) ,  CXK(20), 

[  C VK ( 20 ) ,  CZK( 20 ) ,  XW<20) 

COMMON  /  /  MSTA,  NPRQF,  NFWD,  NAFT,  LPTS(25), 

.  X0FFC25),  YOFF  ( 25,  25 )  ,  Z0FF(25,  25), 

>  XPROF (51),  YPROF ( 51 ) 

COMMON/COEFFX/THAH  (25,  21  )  ,  TSAS(25,  21  ) ,  TRAR  (25,  21  ),  TCCA(25,  21 ), 
h  THVH ( 25,  21  ),  TSVS ( 25,  21 ),  TRVRC25,  21 ),  TCCV(25,  21 ), 

y  THAC  X  (  25,  21  ),  THVCX<25,  21  ) ,  TSACX  (25,  21  ),  TSVCX(25,  21  ), 

y  TRAC  X(  25,  21),  TCACX(25,  21),  THVCY  ( 25,  21  ) , 

y  I TP (25), TXP ( 25 ) ,  IFP (21 >, FXP (21 ) 

COMMON  /FORCE  /  XF,  YF,  ZF,  XM,  YM,  ZM 
REAL  FORCE (6) 

EQUIVALENCE  ( FORCE ( 1 ), XF ) 


COMMON 

COMMON 

COMMON 


/LHS 

/MASS 

/MASS 


Y(  13) 

RHO,  G,  GAMMA 
DISPL,  SMASS, 
AMX,  AMY,  AMZ, 
PMI (3,  3) 


ZCG, 


COMMON  /MASS  /  DISPL,  SMASS,  XCG,  YCG,  ZCG, 

1  AMX,  AMY,  AMZ,  RADII  (6) 

COMMON  /MASS  /  PMI (3,  3) 

COMMON/RESIST/SPEED 

COMMON  /V  /  VX,  VY,  VZ 

COMMON/SXPROP /  SEGMAS ( 26 ) , SEGMOX ( 26 ) , STRMAS ( 26 ) , STRMOM ( 26 ) , 

*  STRMOX ( 26 ) ,  XB AR ( 26 ) , YBAR ( 26 ) ,  SEGWT ( 26 ) ,  NWTSTA 
COMMON/SXFOR/  FBUOY  (6,25),  FDAMP  (6,25),  FADMA  (6,25),  FWVEX  (6,25), 

*  UDAMP  (6,  25),  UADMA(6,  25),  UWVEX(6,  25),  FFLAR(6,  25) 
COMMON/S XGEOM/  AREAS<25), DXS(25) , DX1S(25) , DX2S(25) , 

*  YMOMS ( 25 ) ,  ZMOMS ( 25 ) ,  I ST A, LSTA 
COMMON/ACCEL/ACC ( 6 ) 

COMMON/LOADS/  S IN2 ( 25 ) , SIN3 ( 25 ) , SIN4 ( 25 ) , SIN5 (25 ) ,  SIN6 (25 > , 

1  V2 ( 25 ) , V3 ( 25 ) , V4 ( 25 ) , V5 ( 25 ) , V6 ( 25 ) , 

2  RED  ( 6,  25 ) 

COMMON/OPTION/ JOBCO,  JOBFO(IO) 


SECTION  1.0  GET  SECTIONAL  INERTIA/MOMENT  OF  INERTIAS 


DO  90  U=-1,MSTA 
XBAR (U)=XOFF( J) 
STRMAS ( J ) =SEGMAS ( U ) 
S I N2  ( U )  =0. 

SIN3(  J)=0. 

SIN4  ( J )  =0. 

SIN5(  J)=0. 

SIN6( J)=0. 

DO  91  1*1, 6 
RED  (  I ,  J )  =0. 

91  CONTINUE 

90  CONTINUE 

C 

DO  100  J=1 , MSTA 
DSTRP I=XOFF ( U ) 

DO  101  JJ=1,J 


nnnnnnn  nnnnn  o  o  no  o  nnnoonnnn 


TVACCL=ACC ( 2  >  +XBAR ( JJ  >  *ACC ( 6 ) 

THACCL=ACC (3)-XBAR( JJ ) *ACC ( 5 ) + YB  AR  <  JJ  >*ACC (4) 
■NOTE!!!  We  are  adding  in  weight  of  the  section 
bg  including  gravitational  ac c e 1 erat i on.  This 
is  different  from  standard  strip  theorg  load 
computations.  (Theg  compute  wave  induce  dgnamic 
loads)  We  are  computing  total  loads  at  each  time 
step.  .  .  We  have  the  TOTAL  HYDROSTATIC  RESTORING 
force  not  just  the  change  due  to  unit  wave/motion 
Csee  eq..  70  STF  METHOD/ TRANS  SNAME  '703 

GVACCL=-G*COS ( Y ( 4 )  ) 

GHACCL=G#S IN  (  Y  <  4 ) > 

HACCL=-THACCL+GHACCL 

VACCL=-TVACCL+GVACCL 


S I N2  C  J ) =STRMAS ( J  J ) *VAC  CL+S I N2 ( J > 

SIN3< J)=STRMAS(JJ)*HACCL+SIN3( J) 

S I N4  ( J } =STRMO  X ( J J > * ACC ( 4 ) - < ( STRMAS ( JJ ) * YB AR ( JJ  > ) * 
1  (ACC(3)+XBAR(JJ)*ACC (5) ) >+SIN4( J) 

DSTRP I=XOFF ( J )  —  ( .  5*DXS ( J ) ) 

ZETMX=XBAR ( JJ ) -DSTRPI 

S I N5 ( J ) =ZETMX*STRM AS ( J J ) *HACCL+S I N5 ( J ) 

S IN6  <  J ) =ZETMX*STRMAS  <  JJ  >  *VACCL+SIN6 ( J > 

101  CONTINUE 


100  CONTINUE 


SECTION  2.  O  GET  ADDED  MASS  FORCES  FADMA(  ,  ) 


DO  200  J=1 i MSTA 
DO  200  1  =  1, 6 
FADMA  ( I ,  J)=0. 

200  CONTINUE 
C 

DO  201  J=ISTA,  LSTA 
C 

AREA=AREAS ( J ) 
DX=DXS ( J ) 

DX 1=DX IS ( J ) 
DX2=DX2S( J) 
YMOM=YMOMS( J) 
ZMDM=ZMOMS( J) 

C 

DVOL=AREA*DX 

ADX1=AREA*DX1 

ADX2=AREA*DX2 

YDX=YMOM*DX 

ZDX=ZMOM*DX 


c 

HAH=THAH ( U< 21 >/G 
SAS=TSAS< J, 21 )/G 
RAR=TR  AR  (  J,  21  )  /G 
CCA=TCCA( J, 21 )/G 
C 
C 

AS=ACC ( 5 ) *ADX 1-ACC ( 3 ) *DVOL 

AR=ACC(4)*DV0L 

FADMA  ( 1 ,  J>  =  0. 

FADMA  <2,  J )  =  ( ACC ( 4 ) *ZDX- ACC ( 2 > *DV0L-ACC ( 6 >  *ADX 1 >  *HAH 
FADMA ( 3< U)=AS*SAS-AR*CCA 
FADMA (4,  J)=AS*CCA-AR*RAR 

FADMA  <  5,  J  )  =  (  ACC  ( 3  > *ADX 1-ACC ( 5 ) *ADX2 ) *SAS+ACC ( 4 ) 

1  *ADX1*CCA 

FADMA (6,  J )  =  ( ACC  <  4 ) *ZM0M*DX 1 -ACC ( 2 ) *ADX 1- 
1  ACC ( 6 ) *ADX2 ) *HAH 

C 
C 

201  CONTINUE 
C 

C  SECTION  3.  0  GET  HYDRO  FORCES  (CALL  THEM  RED)  AND  THEN 

C  GET  LOADS 

C - 

C 

DO  900  J=1 »  MSTA 
900  CONTINUE 
C 

DO  300  1=2,  3 
DO  301  J=1 , MSTA 
REDSUM=0. 

DO  302  JJ=1,  J 

REDSUM=-FBUOY ( I , J J ) -FDAMP ( I , UJ ) -FADMA ( I , J J ) -FWVEX ( I , UJ ) 
*  +REDSUM 

UTERMS=-UDAMP ( I , J J ) -UADMA ( I , JJ ) -UWVEX ( I , JU ) 
FTERMS=-FFLAR ( I , U J ) 

IF ( JOBFO ( 2 ) .  EQ.  1 )  REDSUM=REDSUM+UTERMS 
IF( J0BF0C3).  EQ.  1)  REDSUM=REDSUM+FTERMS 
302  CONTINUE 

RED ( I ,  J ) =REDSUM*GAMMA 
301  CONTINUE 

300  CCNTINUE 

C 

c - 

c 

C  Now  do  moments 

C 

DO  310  IX  =  5,  6 
IF(  IX.  EQ.  5)  1=3 
IF(  IX.  EQ.  6)  1=2 
DO  311  J=l, MSTA 
DSTRP I=XOFF ( J ) 

C  D5TRPI  =  X0FF( J)-(.  5*DXS( J) ) 

REDSUM=0. 

C 

DO  312  JJ=1,  J 
C 

ARMJU=XBAR (JJ) 

ARMX=ARMUJ-DSTRP I 
FDARM=FDAMP ( I, JU)*ARMX 
FWARM=FWVEX ( I ,  J J  >  *ARMX 


oncjo  nrum 


FBARM=FBUOY( I,  JJ)*ARMX 
FAARM=FADMA ( I,  JJ)*ARMX 

FUARM= ( UADMA ( I > JJ  > +UDAMP (  I ,  J  J  >  +UWVEX ( I. JJ) ) *ARMX 
FFARM=FFLAR ( I , JJ ) *ARMX 
C 

RED3UM=-FBARM-FDARM-FAARM-FW  \RM+REDSUM 
IF ( JOBFO ( 2 ) .  EG.  1>  REDSUM=REDSUM-FUARM 
IF(  J0BF0C3).  EQ.  1>  REDSUM=REDSUM-FFARM 
312  CONTINUE 
C 

RED ( IX/ J ) =REDSUM*GAMMA 
C 

311  CONTINUE 
310  CONTINUE 


DO  305  J=1,MSTA 

V2( J>=SIN2( J>-RED(2, J) 

V3 ( J ) =S I N3 ( U ) —RED ( 3/ J> 

V4  C  J )  =S  IN4 ( J ) —RED ( 4» J> 
V5(J)=SIN5(J> -RED ( 5. J) 

V6 ( J ) =S I N6  C  J  >  — RED ( 6i J) 

05  CONTINUE 

- OUTPUT  FORCES  FOR  EACH  SECTION 

RETURN 

69  FORMAT  (IX#  I2<  IX/  6F15.  4> 

END 


■MOW*- 


SUBROUTINE  KRYLOV 


COMMON 


COMMON 


COMMON 

l 

COMMON 

l 

COMMON 

COMMON 


COMMON 


COMMON  /AREA  / 
AREA=0.  0 
YM0M=0.  0 
ZM0M=0.  0 
KSAVE=0 

DO  110  K=1 , NWAVES 
ZCO  <  K )  =0.  O 
ZSO  ( K  )  =0.  0 
ZC Y ( K )  =0.  O 
ZSY  ( K )  =0.  0 
ZCZ  (K  )  =0.  O 
ZSZ  (  K  )  =0.  0 
I  SAVE ( K ) =0 
CONTINUE 
LI=INPTS( J) 

I  I  =  IPQINT (U) 
LAST=I I— 1 
IF  (LAST.  EQ.  0)  LA 
DO  190  1  =  1 1 . LI 
ETA1 =ETA ( I ,  J) 
Y1=YWET (  1/  J) 
ZO=ZLAST(I,  J) 
Z1=ZWET(  I,  J) 
Z2=ZNEXT ( I,  J) 


NWAVES.  WVSUM. 

WVAMP ( 20 ) .  WVFRE ( 20 ) .  WVDIR(20>,  WVPHA(20>. 

WN ( 20 ) .  WNX ( 20 ) .  WNZ ( 20 ) . 

CSK(20).  CCK ( 20 ) .  CXK(20), 

CYK ( 20 ) .  CZK(20> ,  XW<20> 

MSTA,  NPROF,  NFWD,  NAFT.  LPTS<25>. 

XOFF  (  25  ) .  Y0FF(25,  25).  Z0FF(25,  25), 

XPROF ( 51 ) ,  YPROF ( 51 ) 

I NPTS  (  25  ) ,  IPOINT  (25  ) ,  YWET(25,  25).  ETA(25,25), 
ZLAST(25,  25),  ZWET(25,  25),  ZNEXT(25,  25) 

ZCO ( 20 ) ,  ZSO ( 20 ) ,  ZC Y ( 20 ) ,  ZSY(20), 

ZCZ ( 20 ) ,  ZSZ ( 20 ) 

DZK ( 20 ) 

JSAVE ( 20 ) ,  COS J ( 20 ) ,  SINJ(20), 

COSJJ ( 20 ) ,  SINJJ(20 ) , 

DWC ( 20 ) ,  DWS ( 20 ) ,  XCI(20),  XSI (20) 

I SAVE ( 20 ) ,  CSI (20),  SNI (20) , 

CSIK20),  SNI  I  ( 20  > , 

DKC ( 20 ) ,  DKS ( 20 ) ,  ZC I (20 ) ,  ZSI (20) 

AREA,  YMOM,  ZMOM 


LAST=LI 


DZO=Z 1 -ZO 
DZ2=Z2— Z 1 
DZ= ( Z2-Z0  > /2.  0 
ZA=Z  l-DZQ/3.  0 
ZB=Z 1+DZ2/3. O 
DZl=(DZ2*ZB+DZ0*ZA)/2.  0 
AREA=AREA+(ETA1-Y1 >*DZ 
ZM0M=ZM0M+(ETA1-Y1 )*DZ1 
YM0M=(ETAl**2-Yl*-v2)/2.  0*DZ+YM0M 
IF  (NWAVES.  EQ.  0)  GO  TO  190 
C 

IF  (KSAVE.  EQ.  0)  GO  TO  112 

SQ0=SQ1 

SG1=SQ2 

DDZ0=DDZ2 


CO  TO  130 
112  SQ0=Z0**2 

SQ1=Z1**2 

IF  (DZO.  EQ.  0.  0  >  GO  TO  120 
IF  (  (DZ2/DZ0).  GT.  1.  0E+06 )  GO  TO  120 
DDZ0=1 . O/DZO 
DZZO=ZO*DDZO 
GO  TO  130 
120  DDZ0=0. 0 

DZZ0=0.  0 

130  IF  (DZ2.  EQ.  0.  0)  GO  TO  140 

IF  (  (DZ0/DZ2).  GT.  1.  0E+06  >  GO  TO  140 

DDZ2=1. 0/DZ2 
DZZ2=Z2*DDZ2 
GO  TO  150 
140  DDZ2=0.  0 

DZZ2=0.  0 

150  SQ2=Z2**2 
KSAVE=0 

IF  (I.  EQ.  LAST)  GO  TO  151 
IN=I 

IF  ( IN.  EQ.  LI  )  IN=0 

IF(  Z1 .  EQ.  ZLAST  (  IN+1  *  J)  .AND.  Z2.  EQ.  ZWET  ( IN+1,  )  KSAVE«=1 

151  CONTINUE 

IFCETA1.  GT.  0.  .  AND.  Yl.  GT.  0.  )  ETA1=Y1 
DO  180  K=1 » NWAVES 
CK=CCK(K) 

YK~CYK ( K  > 

ZK=CZK(K) 

EE=EXP(CK*ETA1 > 

EY=EXP(CK*Y1 ) 

ARG=YK*ETA1 
CE=COS( ARG ) 

SE=SIN( ARG) 

ARG=YK*Y1 

CY=COS(ARG> 

SY=SIN(ARG> 

D=CK**2+YK**2 

CK=CK/D 

YK=YK/D 

COSE= ( CK*CE+YK*SE ) *EE 

SINE=(CK*SE-YK*CE)*EE 

C0SY=  <CK*CY+YK*SY ) *EY 

SINY=(CK*SY-YK*CY)*EY 

YCO=COSE-COSY 

YS0=S INE— SINY 

YC  Y=ETA 1 +COSE-Y 1 *C  OS Y-CK* YCO-YK+YSO 
YSY=ETA1*SINE-Y1*SINY-CK*YS0+YK*YC0 

IF  C  ISAVE(K).  EG.  0)  GO  TO  152 
C0S1 =CSI ( K ) 

S I N 1 =SN I CK) 

GO  TO  153 

152  ARG1=ZK*Z1 
C0S1=C0S ( ARG1 ) 

S I N 1 =S I N ( ARG 1 ) 

153  CONTINUE 

IF  (ABS(ZK*DZ>.  GT.  0.  01 )  GO  TO  160 


DZC0S=DZ*C0S1 


c 

160 


C 


C 

161 


C 

162 


C 


1 

1 

C 


c 

170 

C 


DZSIN=DZ*SIN1 
DZ1C0S=DZ 1*C0S1 
DZ1SIN=DZ1*SIN1 
I SAVE (K ) =0 
GO  TO  170 

ZK2=DZK  <  K ) 

ZC0S1=CDS1*Z1 

ZSIN1=SIN1*Z1 

IF  < ISAVE(K)  .  EG.  0)  GO  TO  161 
COSO=CS I I ( K ) 

S INO=SNI I ( K ) 

DKCO=DKC<K) 

DKSO=DKS(K) 

ZCIO=ZCI <K) 

ZSIO=ZSI (K> 

GO  TO  162 

ARG0=ZK*Z0 
COSO=COS ( ARGO ) 

SINO=SIN ( ARGO > 

DKC 0= ( COS 1 -COSO) /ZK 
DKS0=(SIN1-SIN0> /ZK 
ZCIO=(ZSIN1-SINO*ZO+DKCO)*DDZO 
ZSI0=(C0S0*Z0-ZC0S1+DKS0)*DDZ0 

ARG2=ZK*Z2 
C0S2=C0S ( ARG2 ) 

SIN2=SIN( ARG2) 

DKC2=(C0S2— C0S1 ) /ZK 
DKS2=(SIN2-SIN1 ) /ZK 
ZC I2=<SIN2*Z2-ZSIN1 +DKC2 ) *DDZ2 
ZS 1 2=  C  ZC0S1 -C0S2*  Z2+DKS2 ) *DDZ2 

DZCOS=(ZCIO-ZCI2)/ZK-DZZO*DKSO+DZZ2*DKS2 
DZSIN=( ZSI0-ZSI2) /ZK+DZZO*DKCO— DZZ2*DKC2 

DZ 1 COS= ( <SQ1*SIN1-SG0*SIN0)*DDZ0+(SG1*SIN1-SG2*SIN2)*DDZ2+<Z 
SI2— ZSIO ) *ZK2+Z2*ZC 12— ZO*ZC 10 ) /ZK 

DZ 1SIN=( <SQ2*C0S2-SQ1*C0S1 >*DDZ2+(SQ0*C0S0-SQ1*C0S1 )*DDZO-KZ 
CI0-ZCI2)*ZK2+Z2*ZSI2-Z0*ZSI0)/ZK 

I SAVE ( K ) =KSA VE 

IF  (KSAVE.  EQ.  0)  GO  TO  170 

CSI (K)=C0S2 

SNI (K)=SIN2 

CSII (K)=C0S1 

SNI I ( K ) =SIN1 

DKC (K)=DKC2 

DKS(K)=DKS2 

ZCI <K)=ZCI2 

ZSI (K)=ZSI2 

CONTINUE 

ZCO(K)=ZCO<K)+DZCOS*YCO-DZSIN*YSO 

ZS0(K)=ZS0<K)+DZC0S*YS0+DZSIN*YC0 

ZCY(K)=ZCY(K)+DZCOS*YCY-DZSIN*YSY 

ZSY  <K)  =  ZSY (K )+DZCOS*YSY+DZSIN*YCY 

ZCZ(K)=ZCZ(K)+DZ1C0S*YC0-DZ1SIN*YS0 

ZSZCK)=ZSZ(K)+DZ1C0S*YS0+DZ1SIN*YC0 


180  CUN  I  iNUt 

190  CONTINUE 

IF  (LI.  EQ.  LAST)  RETURN 
LI=LAST 
11  =  1 

CD  TO  111 
C 

END 

FUNCTION  LNEQF(M,  N,  Nl,  A,  B,  DTRMNT.  Z) 

C. .  SOLVES  SIMULTANEOUS  LINEAR  EQUATIONS  BY  GAUSSIAN  REDUCTION. 

C. .  FORTRAN  IV  EQUIVALENT  OF  LNEQS. 

REAL  A(M«  M) ,  B  (M,  M)  »  Z  ( M ),  DTRMNT,  RMAX,  RNEXT,  W,  DOV 
NM1-N-1 

DO  200  J= 1 / NM 1 
J1=J+1 

C.  .  FIND  ELEMENT  OF  COL  J,  ROWS  J-N,  WHICH  HAS  MAX  ABSOLUTE  VALUE. 
LMAX=J 

RMAX=ABS ( A ( J/ J) ) 

DO  110  K=U1 , N 

RNEXT=ABS ( A (K» U) ) 

IF  (RMAX. GE. RNEXT)  GO  TO  110 

RMAX=RNEXT 

LMAX=K 

110  CONTINUE 

IF  (LMAX  NE.  U>  GO  TO  120 
C. .  MAX  ELEMENT  IN  COLUMN  IS  ON  DIAGONAL 
IF  <A(J.  J>>  150-290,150 

C. .  MAX  ELEMENT  IS  NOT  ON  DIAGONAL.  EXCHANGE  ROWS  J  AND  LMAX. 

120  DO  130  L=J,  N 

W=A(  J,  L) 

A( J, L)=A(LMAX, L> 

130  A (LMAX,  L)=W 

DO  140  L=l,  Nl 
W=B ( J, L> 

B  ( J,  L )  =B  ( LMAX,  L) 

140  B ( LMAX,  L ) =W 

DTRMNT =-DTRMNT 

C. .  ZERO  COLUMN  J  BELOW  THE  DIAGONAL. 

150  Z( J)=l. /A( J, J) 

DO  190  K=J1,  N 

IF  ( A  ( K,  J)  )  160,  190,  160 
160  W=-Z(U)*A(K,  J) 

DO  170  L=J1. N 

170  A(K,  L)=W*A( J, L)+A(K, L) 

DO  180  L=l, Nl 

180  B (K,  L )=W*B ( J, L)+B (K, L > 

190  CONTINUE 

200  CONTINUE 

IF  ( A  ( N,  N  )  )  210,290,210 
210  Z ( N ) =1 .  /A ( N, N ) 

C. .  OBTAIN  SOLUTION  BY  BACK  SUBSTITUTION. 

DO  220  L=l, Nl 
220  B(N,  L)  =  Z(N)*B(N,  L) 

DO  250  K=1 , NM1 
J=N— K 
J1=J+1 

DO  240  L=l, Nl 
W=0. 

DO  230  I=J1, N 
W=A(  J-  I  >*B(I,  L  >+W 
B ( J,  L)  =  (B( J,  L)-W)*Z ( J) 


230 

240 


250  CONTINUE 

C.  .  EVALUATE  DETERMINANT. 

IF  ( DTRMNT )  260,280,260 
260  DO  270  U=1,N 
270  DTRMNT-DTRMNT*A( J,  J) 

280  LNEQF=1 
RETURN 

C. .  SINGULAR  MATRIX,  SET  ERROR  FLAG. 
290  LNEQF=2 
DTRMNT =0. 

RETURN 


PROGRAM  HYDREX2 


on  non  on  o  noon  noon 


PROGRAM  HYDREX2 

CHAR AC TER *2 5  OFFIL,  B IFIL, COFIL 
CHAR AC TER *30  TITLE 
COMMON/HEAD/TITLE 
COMMON/IOFILE/  OFFIL, B IFIL, COFIL 
COMMON/ 10/ INPUT  , OUTPUT, BIF, OFF, CQF 
INTEGER  OUTPUT,  BIF, OFF, COF 

COMMON  /C0EFF4  /  C0EFF4  ( 6,  1 2,  8,  25 ) ,  AREAN ( 25,  6 ) 

COMMON/SHIP / ISTA,  LSTA,  ISWL,  LSWL,  TF,  TA,  XCG,  YCG,  DISPL 
COMMON  /DRFT12/  DRAFT ( 6, 2 ) , IDRAFT 

COMMON  /SIGMA  /  NK,  SIGMA (24) ,  SIGMAO,  ERRO,  0M<12) 
COMMON  /U  /  RHO,  G 

COMMON/GEOMETRY/MSTA, LPTS(25>, YOFF ( 25, 25), NAFT, XAFT<25), 

*  YAFTC25), NFWD, XFWD(25), YFWD(25>, X0FFC25), 

*  ZOFF  (25,  25) ,  XFPERP,  XAPERP,  SHIPL,  SHIPB,  SHIPT, 

*  Y 1  (21,  25),  ZWL  ( 25  > ,  WL(25),  INPTS(25),  XWLF,  XWLA,  XXF, 

*  X X A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2, Z2 ( 21 ) , Y2 ( 21 ) , ZZ ( 20 ) , YY ( 20 ) , SNE(20), CSE(20>, 

*  DEL (20),  ROL ( 20 ) ,  ADJUST, WMAX, YMAX, ZMAX, AREA, VERT 
LOGICAL  WL, ADJUST 

DATA  RHO  '0.  00088861607142/ 

DATA  ERRO/1. 0E-37/ 

DATA  OM/  O.  000,  0.  200,  0.  400,  0.  600,  0.  800,  1.  000, 

1  1.200,  1.600,  2.000,  2.400,  2.800,  9.999/ 

DATA  OM/O.  0,  0  0992,  .  1718,  .  243,  .  3137,  .  3842,  .  45469, 

*  .  525,  .  59534,  .  49611,  .  7358,  9.  999/ 

DATA  OM/O.  0,  O.  099,  0.  2,  0.  3,  0.  4,  0.  5,  0.  6,  0.  7,  O.  9, 

*  1  3 1  1  £>/  2  2/ 

DATA  INPUT /5/i  OUTPUT/6/, BIF/1/,  OFF/2/, CQF/3/ 


***  1.0  Get  DATA  -file  names  and  assign/open  files 
TYPE  902 

ACCEPT  901, BIFIL 
TYPE  903 

ACCEPT  901, OFFIL 
TYPE  904 

ACCEPT  901, COFIL 

OPEN ( UNIT =B IF,  STATUS= 'OLD ' ,  FILE=BIFIL) 

OPEN(UNIT=OFF,  STATUS= 'OLD ' ,  FILE=QFFIL ) 

OPEN ( UNI T=COF,  STATUS= 'NEW ' , FORM= 'UNFORMATTED  ' , FILE=COFIL) 

***  2.0  Read  in  data  from  two  files 
CALL  INDATA 
CLOSE (BIF) 

CLOSE ( OFF) 

DO  10  J-l, 6 

DRAFT ( J,  2 ) -DRAFT ( J,  1 )  !Aft  draft  =  fwd  draft 

10  CONTINUE 

***  3.0  Float  ship  at  indexed  draft  then  compute  added  mass 
and  damping  coefficients  using  Frank  Close  Fit. 

DO  20  IDRAFT=1,6 
CALL  FLOAT 
CALL  HYDRO 
20  CONTINUE 

***  4.0  Write  to  unformatted  coefficient  file  containing 


nno  o  o  non 


added  mass  and  damping  coefficients  for  each  station 
at  six  drafts  and  twelve  frequencies. 

WRITE  (COF)  MSTA  INumber  of  Stations 

WRITE  (COF)  <0M( I ) ,  1  =  1,  12)  IFrequency  (rad/sec) 

WRITE  (COF)  ( DRAFT (1/ 1  > ,  1=1/6)  IDrafts 

DO  30  L=1 ,  MSTA  iStation  index 

DO  30  K=1 . 6  IDraft  index 

DO  30  J=l»  12  iFreauencu  index 

WRITE  (COF)  ( C0EFF4 ( K»  J,  l,L),  1  =  1, 8) 

30  CONTINUE 

WRITE  (COF)  (  ( ARE  AN  (L,  K ) ,  K=1  #  6 ) ,  L=1 ,  MSTA )  .'Section  areas 
STOP 


901 

902 

FORMAT ( A ) 
FORMAT ( ' 

Name 

of 

Basic  INPUT  File 

CBIF1 

? 

>  '*) 

903 

FORMAT ( ' 

Name 

of 

Offset  File 

COFFl 

? 

>  '*) 

904 

FORMAT ( ' 

Name 

of 

Coefficent  File 

CC0F3 

? 

>  '*) 

END 

SUBROUTINE  HYDRO 

CALCULATION  OF  HYDRODYNAMIC  FORCE  COEFFICIENTS  FOR  THE  SHIP. 

COMMON/ 10/ INPUT,  OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT,  BIF, OFF, COF 
COMMON/HEAD/TITLE 
CHARACTER*30  TITLE 

COMMON  /C0EFF4/  C0EFF4 ( 6, 12, 8, 25 ) , AREAN ( 25, 6 ) 

C0MM0N/DRFT12/DRAFT ( 6, 2),  IDRAFT 

COMMON /SHIP/IST A,  LST A,  ISWL,  LSWL,  TF,  TA,  XCG,  YCG,  DISPL 
COMMON  /SIGMA  /  NK,  SIGMA(24),  SIGMAO,  ERRO,  0M(12) 

COMMON  /U  /  RHO,  G 

COMMON/GEOMETRY/MSTA,  LPTS(25), Y0FF(25,  25),  NAFT,  XAFT(25), 

*  YAFT (25 ) , NFWD,  XFWD(25>, YFWD(25>,  X0FF(25), 

*  ZOFF ( 25,  25)  ,  XFPERP,  XAPERP,  SHIPL,  SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL  ( 25 ) ,  WL  (  25 ) ,  INPTS(25),  XWLF,  XWLA,  XXF, 

*  XXA,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XX AFT ,  DX,  DX1, 

*  DX2,  Z2 ( 2 1 ) ,  Y2 ( 21 ) ,  ZZ (20 ) , YY ( 20 ) , SNE(20 ) , CSEC20 ) , 

*  DEL  (20),  ROL(  20),  ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 
LOGICAL  ADJUST,  WL 

COMMON  /  /  HA1 ,  SA1,  RA1 ,  CA1,  HV1,  SV1,  RV1,  CV1, 

1  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  XRI,  YRI  *  EJT 

COMMON  / /HAO ( 24 ) ,  SAO ( 24 ) ,  RAO ( 24 ) ,  CAO ( 24 ) , 

1  HVO ( 24 ) ,  SV0(24),  RV0(24),  CV0(24) 

REAL  FA (24, 8) 

EQUIVALENCE  (FA (1,1),  HA0<1>) 

COMMON  /  /  BLOGP ( 20,  20  > ,  YLOGP ( 20,  20 ) , 

1  BL0GM(20, 20),  YL0GM(20, 20) 

REAL  COEFFO ( 8 ) ,  C0EFF1 ( 8 ) 

EQUIVALENCE  ( CQEFF1 ( 1 ) ,  HA1 ) 

DATA  TP  I  /6.  2831853072/ 

NODES=NWL 
ERR=ERRO 
RH02=RH0*2.  0 
XXSTA=XXF 
XWO=XWLF 
V0L0=0.  O 
VOL  1=0.  O 
V0LV=0.  0 
WP0=0.  0 


r' 

K. 


r 


c 

c 

c 

c 

c 


s~ 

L 


r 

L 


UP  1*0.  0 
WP2=0.  0 
WPT=0.  0 

C  CR  IS  THE  CENTER  OF  ROLL.  ROLL  IS  ASSUMED  TO  BE  ABOUT  THE 

C  HORIZONTAL  AXIS  THROUGH  THE  GIVEN  CENTER  OF  GRAVITY. 

CR=YCG-DRAFT< IDRAFT, 1 > - ( XFPERP-XC 3 ) *TAN 
C  STRIP  CALCULATION  PROCEDURE  FOR  EACH  WET  STATION.  . 

C 

C 

DO  240  J=rSTAi LSTA 
XXFWD=XXSTA 
X  XSTA=XOFF ( J ) 

IF  (J.  EG.  LSTA)  GO  TO  122 
XXAFT=XOFF( J+l ) 

¥up= X  X AFT 

IF  (J.  EG.  LSWL)  XW2=XWLA 
GO  TO  124 
122  XXAFT=XXA 

XW2=XWLA 

124  X 1=X0FF ( J) -XCG 

C 

C  INTEGRhTE  over  waterplane  of  the  ship.  . 

c 

IF  (J.  LT.  ISWL)  GO  TO  130 

DXFWD=XWG-XXSTA 

XUO=XXSTA 

IF  (.NOT.  WL(J>>  GO  TO  130 
DXAFT=XW0-XW2 
DX=DXFWD+DXAFT 
A=X 1— DXAFT /3.  0 
B=Xl+DXFWD/3.  0 

X W2=DXFWD*B*B+D X AFT*A*A+ < DXFWD**3+DX AFT**3 ) / 18.  0 

XW1=DXFWD*B+DXAFT*A 

ZW=ZWL( J) 

DZH=ZW*DX 

WP0=WP0+DZW 

WP1=WP1+ZW*XW1 

WP2=WP2+ZW*XW2 

WPJ=WPT+DZW*ZW**2 

c 

c  SET  UP  STATION  GEOMETRY.  . 

C 

130  NON= I NPTS ( J ) 

IF  (NON.  EG.  O)  GO  TO  140 
NWL=0 

IF  (WL(U)>  NWL=NODES 

CALL  STATN  (  ZOFF  (l.J)«Yl(l»J>»  ZWL  (  U  > «  INPTS(U)  > 

IF  (NON.  LE.  0)  GO  TO  140 
C 

C  INTEGRATE  OVER  SUBMERGED  VOLUME  OF  THE  SHIP.  . 

C 

DXFWD=XXFWD-XXSTA 
DXAFT=XXSTA-XXAFT 
DX= ( DXFWD+DXAFT ) /2.  0 
V0L0=V0L0+AREA*DX 
A=X 1 -DXAFT /3.  0 
B=X  1 +DXFWD/3.  0 

DX2=(DXFWD*B*B+DXAFT*A*A>/2.  0+ ( DXFWD**3+DXAFT**3 ) /36.  0 
DXl=(DXFWD*B+DXAFT*A>/2.  0 
VOL 1 =VOL 1 + AREA*D  X 1 
VOLV=VQLV+VERT*DX 


noon  r>  r>  non  n  n  on 


140  CONTINUE 

C 

DO  150  1=1, a 

C0EFF0( I ) =0. 0 
150  CONTINUE 

C 

CALL  GIRL 


DO  210  K=1 1  12 
ESIG=0M(K> 

RSIG=ESIG*RH02 

WN=ESIG*ESIG/G 

*■*■»  Zero  (K=l )  or  Infinite  (K=12)  Freouencu  Computations 
IF(K.  EG.  1.  OR.  K.  EG.  12)  THEN 
CALL  BEER (K> 

ELSE 

**■*  Non  zero  and  non-infinite  frequency  computations 
W1=TP I/WN 
W2=2.  O/WN 
CALL  WINE  (K) 

END  IF 


180  CONTINUE 

DO  190  1=1,8 

C0EFF4( IDRAFT,  K,  I, J)=C0EFF1 ( I ) /AREA 
190  CONTINUE 

AREAN ( J,  I DRAFT ) =AREA 
HAO ( K ) =HA1 
SAO ( K ) =SA1 
RAO ( K ) =RA1 
CAO ( K )=CA1 
HV0(K)=HV1 
SV0(K)=SV1 
RV0(K)=RV1 
CV0(K)=CV1 
210  CONTINUE 


PRINTOUT  Offset  and  Hydrodynamic  Coefficient  Info. 

WRITE  (OUTPUT,  300)  TITLE 

WR I TE  (  OUTPUT ,  301  )  J,  XOFF  ( J) ,  AREA,  DRAFT  ( IDRAFT,  1  >,  CR, 

*  DRAFT < IDRAFT,  2 > 

WRITE  (OUTPUT,  302) 

WRITE  (OUTPUT, 310)  ( OM ( K > ,  HAO ( K > , HVO ( K > ,  SAO ( K > , SVO ( K ) , RAO (K> , 

1  RVO(R),  CAO(K),  CVO(K>,  K=l,  12) 

C  ***  Offset  Information 

WR I TE ( OUTPUT , 705) 

WRITE (OUTPUT, 706) 

N=LPTS ( J  > 

M=0 

IF  (J.  LT.  ISTA)  GO  TO  670 
IF  (J.  GT.  LSTA)  GO  TO  670 
M=INPTS ( J  > 

IF(M.  NE.  0)  WRITE  (OUTPUT,  710)  ( YOFF  (  I,  J) ,  ZOFF  (  I ,  J),  Yl(  I,  J>,  ZOFF 

(  I,  J),  1  =  1,  M) 


1 


670 


220 

240 


IF  (WL( J) )  WRITE  (OUTPUT- 720)  ZWL(J) 

M=M+1 

IF  (M.  LE.  N)  WRITE  (OUTPUT,  730)  (  YOFF  (I  -  J ) ,  ZOFF  ( I »  U ) »  I=M,  N) 

CONTINUE 
CONTINUE 
GAMMA=RHO*G 
D I SPL=VOLO*GAMMA 

WPT=WPT/3.  0 
YFYTO=WPO*GAMMA 
YFZR0=WP1*GAMMA 
XWA=0.  0 

IF  (WPO.  NE.  0.  0)  XWA=WP1/WP0 
XCB=V0L1 /VOLO 
YCB=VOLV/VOLO 
XBM=WPT/V0L0 
ZBM= ( WP2-WP 1*XWA ) /VOLO 
XGM=XBM+YCB 
ZGM=ZBM+YCB 
XWA=XWA+XCG 
XCB=XCB+XCG 
YCB=YCB+YCG 
XMXRO=XGM*DISPL 
ZMZRO=ZGM*DISFL 
WRITE  (OUTPUT,  270)  TITLE 
WRITE  (OUTPUT,  281)  DRAFT ( IDRAFT, 


1), DRAFT ( IDRAFT,  2) 


C 


110 

120 

270 

280 

281 

290 


WRITE (OUTPUT,  290) 

WRITE (OUTPUT,  291 ) 

WRITE (OUTPUT,  292) 

WRITE (OUTPUT,  293) 

WRITE (OUTPUT,  294) 

WRITE  (OUTPUT,  280) 
OUTPUT  OF  NOTES 
WRITE (OUTPUT,  420) 

IF  (ADJUST)  WRITE ( 

IF  (.  NOT.  ADJUST) 

IF  (NWL.  GT.  0)  GO 
GO  TO  120 

WRITE  (OUTPUT,  460)  NWL 
IF  (UMAX.  GT.  0.  0)  WRITE 
CONTINUE 


WPO,  XWA,  WP1,  WP2,  WPT 
DISPL, VOLO, XCB, YCB, V0L1, VOLV 
ZBM,  XBM,  ZGM,  XGM 
XMXRO, ZMZRO, YFYTO, YFZRO 
XXF,  XXA 


XCG,  YCC 


OUTPUT, 430) 
WRITE  (OUTPUT, 
TO  110 


ZMAX, 

440) 


YMAX 


(OUTPUT, 470)  WMAX 


291 


RETURN 

FORMAT  ( 1H1 /,  81 ( 1H= ) /,  IX, A30,  'HYDROSTATIC  COEFFICIENTS 
,  T64,  'PROGRAM  HYDREX ' , /,  81 < 1H= ) / ) 

FORMAT  (//81(1H-)/,  '  NOTE:  All  moments  are  about', 
'center  of  gravity'  /,  7X,  ' XCG= ',  FI  1 .  3,  '  YCG= ',  FI  1.  3,  / ) 
FORMAT ( T5,  '  DRAFT  (fuid)  * ' ,  F8.  2,  /,  T5,  '  DRAFT  (aft)  =', 

FORMAT (T10,  ' - WATERPLANE 

T10,  'Area 
T10,  'LCF 

T10, '1st  Long.  Moment 
T10,  '2nd  Long.  Moment 
T10,  '2nd  Transv.  Moment 

FORMAT (T10,  ' - VOLUME 

T10,  'Displacement 
T10,  'Volume  of  Displacement 
T10, 'LCB 
T10,  ' VCB 

T10,  'Long.  Moment 


,  T40,  F13.  2,  T60, 
,  T40,  F13.  2,  T60, 
,  T40,  E13  7,  T60, 
,  T 40,  E13.  7,  T60, 


F8.  2/  > 
',  / 
units 
units 
units 
units 

,  T40,  E13.  7,  T60,  '  units 

/ 

units 
units 
units 
units 
units 


/) 


',  T40,  F13.  2,  T60, 
',  T40,  E13.  7,  T60, 
',  T40,  F13.  2,  T60, 
',  T40,  F13.  2,  T60, 
',  T40,  E13.  7,  T60, 


',  / 
',  / 
',  / 
',  / 


*  TIO,  'Vert.  Moment  ' .  T40,  E13.  7,  T60,  '  units  ',/> 

292  FORMAT (T10<  ' -  METACENTRIC  HEIGHTS - ',  / 

*  TIO,  'BM  (longitudinal)  ' ,  T40,  F13.  2,  T60,  '  units  ',  / 

*  TIO*  'BM  (transverse)  ' »  T40»  F13.  2*  T60,  '  units  ',  / 

*  TIO*  'GM  (longitudinal)  ',  T40,  F13.  2,  T60,  '  units  ',  / 

*  TIO*  'GM  (transverse)  ',  T40,  F13.  2,  T60,  '  units  '»/) 

293  FORMAT  (TIO,  ' - HYDROSTATIC  FORCES - / 

*  TIO*  'Roll  Restoring  Moment  ' ,  T40,  E13.  7,  T60,  '  units  ',  / 

*  TIO,  'Pitch  Restoring  Moment  ',  T40,  E13.  7,  T60,  '  units  ',  / 

*  TIO*  'Heave  Restoring  Force  ' ,  T40,  E13.  7,  T60,  '  units  ',  / 

*  TIO,  'Pitch  Induced  Heave  Force  ' ,  T40,  E13.  7,  T60,  '  units  ',/) 

294  FORMAT ( /,  T5,  '  LWL  begins  at  ',  FIO.  2,  / 

*  ,  T5,  '  LWL  ends  at  ',F10.  2*  /  > 

300  FORMAT ( 1H1 / ,  81 ( 1H= ) ,  /,  IX,  A30,  'ADDED  MASS/DAMPING  COEFFICIENTS' 


*,  T66,  'PROGRAM  HYDREX  ' /,  81  ( 1H=  )  ) 

301  FORMAT  (T36,  'Station  'I2/.T36,  ' - '/, 

*  T5,  '  Dist.  •from  F.  P.  ',  F8.  2,  T50,  'Area  '.F11.3,  / 


*  T5,  '  DRAFT  (  f wd  >  ',  F8.  2,  T50,  'Roll  Ctr  abv  WL',  Fll.  3/ 

*  T5*  '  DRAFT  (aft)  ',F8.  2,  //) 

302  FORMAT ( 10X,  ' - HEAVE - ', 

*4X,  ' - SWAY - '*  4X,  ' - ROLL - ', 

*4X»  ' — SWAY-ROLL - '*/,  14X,  'A22',5X,  'B22', 

*7X,  '  A33 ' ,  5X,  'B33  '  *  8X,  'A44',  6X,  'B44',  6X,  'A34',  6X,  'B34'.  / 

*,  2X*  'Freq.  '/) 

309  FORMAT  (  Cl  X*  0PF22.  4*  3  (  5X,  1P2E10.  2  )  )  ) 

310  FORMAT (IX,  F5.  2,  3X,  F8.  4,  F8.  4,  2X,  F8.  4*  F8.  4, 

*  2X,  F9.  2*  F9.  2,  F9.  1*  F9.  1  ) 

420  FORMAT  ( 1H1  /,  33(  1H* ) ,  'NOTES  ',33(lH*)/> 

430  F0RMAT(T5,  'Generate  additional  offset  points.  '/* 

*  T5*  'Maximum  segment  h  e  ig  h  t=  ' »  Flo.  3/» 

•*  T5*  'Maximum  segment  width  «=',F10.  3/) 

440  FORMAT ( /T5,  'Use  segments  as  defined  by  table  of  offsets.  ') 
450  F0RMAT(T5.  'No  internal  free-surface  segments  are  used.  ') 
460  F0RMAT(T5,  13,  2X,  'nodes  for  internal  free-surface.  ') 

470  F0RMAT(5X*  'Add  internal  nodes  if  surface  segment  lengths', 
*'  exceed  '*  FIO.  3) 

706  FORMAT  (6X,  'Height  above',  5X,  'Half',15X. 

*  'Submerged  Of  f  sets '/,  10X,  'Base  1  ine ',  5X,  'BREADth', 

*14X,  '— Y-  ' ,  9X,  '-Z-'/) 

705  FORMAT  (/////* 33 ( 1H- ) ,  'STATION  OFFSETS ', 32 ( 1H- ),/ ) 

710  FORMAT  ( 6X,  2F 12.  3,  F18.  3,  FI 2.  3  ) 

720  FORMAT  (39X, 9HWATERLINE,  F12.  3) 

730  FORMAT  (6X,2F12.  3) 

END 

SUBROUTINE  INDATA 

COMMON/ 10/ INPUT ,  OUTPUT,  BIF,  OFF, COF 
INTEGER  OUTPUT,  BIF, OFF, COF 

COMMON  /SIGMA  /  NK,  SIGMA(24),  SIGMAO,  ERRO,  0M(12) 

COMMON  /  DRFT 12/  DR AFT ( 6,  2 ) ,  IDRAFT 

COMMON/ I OF I LE/  OFFIL, B IFIL, COFIL 

COMMON/HEAD/T I TLE 

CHAR ACTER*30  TITLE 

COMMON  /U  /  RHO,  G 

COMMON/SHIP/ 1 STA,  LSTA,  ISWL,  LSWL,  TF,  TA,  XCG,  YCG,  DISPL 
COMMON/GEOMETRY/MSTA,  LPTS(25),  Y0FF<25, 25), NAFT,  XAFT(25), 

*  YAFT (25) ,  NFWD,  XFWDC25), YFWD(25),  X0FF<25), 

*  ZOFF (25, 25),  XFPERP,  XAPERP, SHIPL,  SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL  ( 25  ) ,  WLC25),  INPTS(25>,  XWLF,  XWLA,  XXF, 

*  XXA,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XX AFT,  DX,  DX1, 


no  oooonoo 


*  DX2,  Z2(21 ) ,  Y2(21 )>  ZZ (20) ,  YY (20) , SNE(20>,  CSE(20>, 

*  DEL (  20  ) ,  RQL  ( 20  ) ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 
LOGICAL  ADJUST,  WL 

C 

CHARACTER *81  CARDID 

DATA  DEGREE/0.01745  32925  19943/ 

DATA  G  /32.  17/ 

DATA  NWL/1/ 

C 

WRITE  (OUTPUT,  197) 

C  ***  TITLE 

READ  (BIF, 199)  TITLE 
WR I TE ( OUTPUT , 196)  TITLE 

C  ***  DRAFT  (fwd), DRAFT  (aft),  long,  loc 's  of  DRAFT  marks 
READ  (BIF, 200)  TF, TA,  XFPERP,  XAPERP 
WRITE  (OUTPUT,  200)  TF,  TA,  XFPERP,  XAPERP 
C  ***  Center  of  Gravity  (XCG  aft  of  FP,  YCG  above  BL) 

READ  (BIF, 200)  XCG,  YCG,  ZCG 
WRITE  (OUTPUT,  200)  XCG,  YCG,  ZCG 
C  ***  Six  DRAFTS  at  which  hydro,  coeffs  are  computed 
READ(BIF, 200)  ( DRAFT ( 1 ,  1 ) ,  I  =  1 , 6 ) 

WRITE (OUTPUT,  200)  (DRAFT ( I,  1 > ,  1  =  1, 6) 

C  ***  Minimum  segment  lengths  for  Frank  Close  Fit 
READ  (BIF, 201)  YMAX,  ZMAX,  WMAX,  NWL 
WR I TE ( OUTPUT , 201 )  YMAX,  ZMAX,  WMAX,  NWL 
ADJUST=ZMAX.  GT.  O.  0.  AND.  YMAX.  GT.  0.  0 
C  ***  Number  of  f orware  profile  points 
READ  (BIF, 190)  NFWD 
WRITE (OUTPUT,  190)  NFWD 

IF  (NFWD.  GT.  25)  CALL  ERROR  (  15,  IDUM,  RDUM) 

C  ***  Coordinates  of  forward  profile  points 

IF  (NFWD.  GT. 0)  READ  (BIF, 430)  ( YFWD ( I ) ,  XFWD ( I ) ,  1  =  1 , NFWD ) 

WR I TE ( OUTPUT ,  430)  ( YFWD ( I ) ,  XFWD(I),  1  =  1, NFWD) 

C  ***  Number  of  aft  profile  points 
READ  (BIF, 190)  NAFT 
WRITE (OUTPUT, 190)  NAFT 

IF  (NAFT.  GT. 25)  CALL  ERROR ( 16,  IDUM, RDUM) 

C  ***  Coordinates  of  aft  profile  points 

IF  (NAFT.  GT. 0)  READ  (BIF, 430)  ( YAFT( I > ,  XAFT ( I > ,  1*1 ,  NAFT) 

WR I TE (OUTPUT , 430)  (YAFT(I), XAFT(I), 1=1, NAFT) 


Section  2.  0  -  READ  OFFSET  file 

The  offset  file  can  be  an  actual  SHCP  DATA  File 

WR I TE ( OUTPUT, 198) 

***  CARD  TYPE  A 

READ  (OFF, 410)  CARDID 
WR I TE ( OUTPUT, 410)  CARDID 
C  ***  CARD  TYPE  B 

READ  (OFF, 410) 

C  ***  CARD  TYPE  C 

READ  (OFF,  412)  SPACE,  ZSCAL, YSCAL, SHIPL, NAPN,  KINDO 

WR I TE ( OUTPUT ,  412)SPACE,  ZSCAL,  YSCAL, SHIPL, NAPN,  KINDO 

IF  (SPACE.  EG.  0.  0)  SPACE=1.0 

ZSC AL=1 .  O 

YSC AL=1 .  0 

MSTA=0 


on  no 


NFWD=0 

NAFT=0 


*+*  CARD  TYPE  D 
30  N=1 

MSTA=MSTA+1 

IF  (MSTA.  GT.25)  CALL  ERROR  (  1 0,  I DUM,  RDUM ) 

READ  (OFF, 416)  STATNO, Yll, 21, JTEST 
WRITE (OUTPUT, 417)  STATNO, Yll, Zl, JTEST 
XOFF ( MSTA ) =ST AT  NO* SPACE 
GO  TO  50 

40  CONTINUE  'loop  within  each  station 

N=N+1 

IF  (N.  GT.25)  CALL  ERROR  ( 1 1 ,  MSTA,  RDUM ) 

READ  (OFF, 416)  S, Y1 1 , Z 1 , JTEST 

WR I TE ( OUTPUT, 417)  S, Y 1 1 , Z 1 , JTEST 

IF  (S.  NE.  STATNO)  CALL  ERROR  ( 1 2,  MSTA,  RDUM ) 

50  YOFF(N, MSTA > =Z 1*ZSCAL 
ZOFF ( N, MSTA ) =Y1 1 *YSC AL 

IF  (JTEST.  EG.  0  .OR.  JTEST.  EQ.  77777 )  GO  TO  40 

LPTS ( MSTA ) =N  !No.  of  points-  MSTA 

IF  (N.  LT.  2)  CALL  ERROR  ( 13,  MSTA,  RDUM ) 

IF  (JTEST. EQ. 88888)  GO  TO  30  ! Go  onto  next  station 

IF  (JTEST.  NE.  9997?)  CALL  ERROR  (  1 4,  JTEST,  RDUM ) 


DO  220  J=1 , MST A 

XOFF ( J ) =-XOFF ( J ) 

220  CONTINUE 

IF  (NFWD.  EQ.  0)  GO  TO  240 
X=XOFF( 1 ) 

DO  230  1=1,  NFWD 

XFWD ( I )=XFWD( I )+X 
230  CONTINUE 
240  CONTINUE 

X=XOFF ( MSTA ) 

DO  250  1=1 , NAFT 

XAFT ( I ) =X-XAFT ( I ) 

250  CONTINUE 
RETURN 

180  FORMAT  (5X, 15) 

190  FORMAT  (15) 

197  FORMAT( 1H1 /, 81 ( 1H* ) /,  '  INPUT  DATA  ECHO  ',T64, 

* 'PROGRAM  HYDREX'/,  81(1H*)//,  33I1H-), 

*  '  IB  TF1  DATA  FILE ' , 32 ( 1H- ) / ) 

198  FORMAT  ( 1 H 1  /  ,  81(  1H*  )  / ,  '  INPUT  DATA  ECHO  ',T64, 

* 'PROGRAM  HYDREX'/,  81 (1H*)//, 33(lH->, 

*  '  C OFF  1  DATA  FILE  ',  32<  1H-  )  /  ) 

196  FORMAT( IX, A) 

199  FORMAT ( A ) 

200  FORMAT  (6F10. 2) 

201  FORMAT  (3F10.  2,  15) 

210  FORMAT  ( F10.  2,  1 5,  5X,  F 1 0.  2  ) 

410  FORMAT  (A) 

412  FORMAT  (4F10.  3,  13X,  12,  4X,  II) 

414  FORMAT  (5X,  15,  5X,  'INPUT  OF  SHCP  TYPE  D  OFFSET  DATA') 

416  FORMAT  (  F6.  3,  2F7.  0,  16  ) 

417  FORMAT  ( F7.  3,  2F 10.  2,  1 6 ) 

420  FORMAT  (215,  F10.  2) 

430  FORMAT  (2F10.  2) 


ononooooooooooo 


C 


SUBROUTINE  INSERT ( Al« A2,  Jl,  LI, L2) 

C  Purpose:  Inserts  array  A2  into  array  A1  at  location  Jl. 

REAL  Al(l),  A2<1) 

IF  (LI.  LT.  Jl )  CO  TO  120 
M=L1+L2 

I  =L  1  • 

K=L1— Jl+1 

DO  110  J=1.K 
A1 (M)=A1 (I ) 

M=M— 1 
1  =  1-1 
110  CONTINUE 
120  I=J1-1 

DO  130  K=l,  L2 
M=K+I 

A1 ( M  >  =A2 (K ) 

130  CONTINUE 
RETURN 
END 

SUBROUTINE  STATN  ( Z, Y,  ZW, NPTS > 

CALCULATION  OF  DATA  CONCERNING  STATION  GEOMETRY. 

REVISION  OF  OFFSETS  FOR  GOOD  RESULTS  MAY  BE  PERFORMED. 

NON  =  NUMBER  OF  CALCULATED  MIDPOINTS. 

NWL  =  NUMBER  OF  WATERLINE  MIDPOINTS. 

Z  =  HORIZONTAL  COORDINATE  OF  SEGMENT  ENDPOINT. 

Y  =  VERTICAL  COORDINATE  OF  SEGMENT  ENDPOINT. 

II  =  HORIZONTAL  COORDINATE  OF  SEGMENT  MIDPOINT. 

YY  =  VERTICAL  COORDINATE  OF  SEGMENT  MIDPOINT. 

SNE  =  HORIZONTAL  COMPONENT  OF  UNIT  NORMAL  TO  SEGMENT. 

CSE  =  VERTICAL  COMPONENT  OF  UNIT  NORMAL. 

DEL  =  LENGTH  OF  SEGMENT. 

ROL  =  MOMENT  OF  UNIT  NORMAL  ABOUT  CENTER  OF  ROLL  <CG>. 

REAL  Y  ( 1  ) ,  Z(l) 

COMMON/ 10/ INPUT,  OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT,  BIF, OFF, COF 

COMMON/GEOMETRY/MSTA, LPTS<25>,  Y0FF(25, 25), NAFT,  XAFT(25>, 

*  YAFT ( 25 ) , NFWD,  XFWD ( 25 ) ,  YFWD ( 25 ) ,  XOFF ( 25 ) , 

*  ZOFF (25, 25) ,  XFPERP,  XAPERP, SHIPL, SHIPB,  SHIPT, 

*  Y1  <21,  25),  ZWL  ( 25  ) ,  WL<25),  INPTS(25),  XWLF,  XWLA,  XXF, 

*  XX A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2,  Z2 ( 2 1 ) ,  Y2 (21),  Z Z  <  20 ) ,  YY ( 20 ) , SNE ( 20 ) ,  CSE ( 20 ) , 

*  DEL (20), ROL (20), ADJUST, WMAX, YMAX,  ZMAX, AREA,  VERT 

COMMON  ,  /  HA  1  ■  SA1 ,  RA1 ,  CA1,  HV1,  SV1,  RV1,  CV1, 

1  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  XRI,  YRI,  EJT 

COMMON  /  /  HAO ( 24 ) ,  SA0<24),  RAO (24),  CA0<24), 

1  HVO ( 24 ) ,  SVO ( 24 ) ,  RV0<24),  CV0<24) 

COMMON  //  ZNEW ( 20 ) , YNEW(20),  ZZNEW(20),  YYNEW(20), CNEW ( 20 ) ,  SNEW ( 20 ) , 
1 DNEW  ( 20  ) ,  RNEW  (  20 ) ,  MORE  ( 20  ) ,  I,  K,  ZO,  YO,  Ml,  MTOT,  ZINT,  YINT,  NUMBER,  M,  N1 
2,  1 1 ,  JOB,  ZS,  YS,  D,  C,  S,  P,  Q,  NUT 
LOGICAL  40 JUST 
DATA  LIMIT/20/ 

DATA  MAXPTS/20/ 

AREA=0.  0 
VERT=0.  0 
Z0=0.  O 
YO=Y( 1 ) 


non  n  non  non  non  nnn  non 


MT0T=0 
K=  1 
1 1=K 

IF  (Z(l ).  EQ.  0.  0)  11=2 
IF  (Il.GT.  NPTS)  GO  TO  130 

CALCULATION  LOOP  FOR  SUBMERGED  OFFSET  POINTS.  . 

DO  120  I  =  I1<  NPTS 
Z INT=Z ( I >-Z0 
YINT=Y< I >-Y0 

D=SQRT(ZINT*ZINT+YINT*YINT> 

IF  (D.  EQ.  0.  0)  GO  TO  120 
IF  (.  NOT.  ADJUST)  GO  TO  110 

CODE  INSTRUCTIONS  FOR  THE  ADDITION  OF  POINTS.  . 

NUMBER=MAXO< IABSC IF I  X ( Z INT/ZMAX > ),  I ABS ( IFI X ( YINT/YMAX >  > ) 

MORE ( K ) =NUMBER 

MTOT=MTOT+NUMBER 

CONTINUE  STANDARD  PROCEDURE.  . 

110  ZS=ZO+Z(I> 

YS=YO+Y< I ) 

AREA=AREA+YINT*ZS 

VERT=VERT+YI NT*  C  ZO* ( YO-CR+YI NT/3.  0 ) +Z ( I ) * ( YO-CR+YINT/ 1 .  5  >  > 

C=ZINT/D 

S=YINT/D 

CSE(K)=C 

SNE ( K ) =S 

DEL(K)=D 

ZZ  ( K  )  =0.  5*ZS 

YY  ( K )  =0.  5*YS 

ROL ( K ) = ( CR— YY ( K ) )*S-ZZ(K)*C 

Z2(K)=Z0 

Y2(K)=Y0 

ZO=Z ( I ) 

YO=Y( I ) 

K=K+1 
120  CONTINUE 

END  OF  CALCULATION  LOOP  FOR  SUBMERGED  POINTS. 

130  Z2(K)=Z0 
Y2(K)=Y0 
N0N=K-1 

ADD  UPPERMOST  SEGMENT.  . 

IF  ( NWL.  NE.  O)  GO  TO  150 
SECTION  IS  SUBMERGED. 

IF  (ZO.  EQ.  0.0)  GO  TO  200 
IF  (.  NOT.  ADJUST)  GO  TO  140 

CODE  INSTRUCTIONS  FOR  THE  ADDITION  OF  POINTS.  . 

NUMBER=I ABS ( IFI X ( ZO/ZMAX ) ) 

MORE ( K  >  =NUMBER 
MTQT=MTOT+NUMBER 


C  CONTINUE  STANDARD  PROCEDURE.  . 

C 

140  DEL ( K ) =ABS ( ZO ) 

CSE ( K ) =— 1 .  0 
SNE  ( K  )  =0.  0 
ZZ(K)=0. 5*Z0 
YY(K)=YO 
ROL  <  K ) =ZZ (K  > 

NON=K 
K=K+1 
Z2  ( K )  =0.  0 
Y2(K)=Y0 
GO  TO  200 
C 

C  ADD  SEGMENT  UP  TO  WATERLINE.  . 

C 

150  ZINT=ZW-ZO 
YINT=-YO 

IF  (NWL.  LT.  0)  NWL=0 
IF  (ZW.  LE.  O.  0>  NWL=0 
D=SQRT(ZINT*ZINT+YINT*YINT> 

IF  (D.  EQ.  O.  O)  GO  TO  170 
IF  (.  NOT.  ADJUST)  GO  TO  160 
C 

C  CODE  INSTRUCTIONS  FOR  THE  ADDITION  OF  POINTS.  . 

C 

NUMBER=MAXO( IABS( IFIX(  ZINT/ZMAX  > >,  IABS( IFIX ( YINT/YMAX ) ) ) 
MORE ( K ) =NUMBER 
MTOT=MTOT+NUMBER 
C 

C  CONTINUE  STANDARD  PROCEDURE.  . 

C 

160  ZS=ZO+ZW 
YS=YO 

AREA=AREA+YINT*ZS 

VERT=VERT— YINT* ( ZO* (CR+YINT/1 . 3 )+ZW* (CR+YINT/3. 0) ) 

C=Z INT/D 
S=YINT/D 
CSE ( K ) =C 
SNE ( K ) =S 
DEL  ( K )  =D 
ZZ  ( K )  =0.  5*ZS 
YY(K)=0.  5*YS 

ROL(K)=(CR-YY(K) )*S-ZZ(K)*C 
NON=K 
K=K+1 
Z2(K)=ZW 
Y2(K)=0.  O 
C 

C  ADD  DECK  AT  WATERLINE. . 

r 

170  CONTINUE 

IF  (NWL.  EQ.  0)  GO  TO  200 
ZINT=ZW/FLOAT(NWL> 

IF  (WMAX.  EQ.  0.  0)  GO  TO  180 
IF  (ZINT. LT. WMAX)  GO  TO  180 
NWL=IFIX ( ZW/WMAX  >  +  l 
Z INT=ZW/FLOAT ( NWL ) 

180  D=ZINT*0.  5 

DO  190  1=1, NWL 
DEL ( K ) =Z INT 


SUBROUTINE  POTST 

COMMON/BD/XPAN( 120),  YPAN( 120),  ZPAN( 120), AREA ( 120).  ST  (  120), 

*  ACN ( 120) , ACNW ( 1 20 ) , AN ( 1 20, 3 ) , E ( 120 ) , P ( 120, 6 ) ,  PRFSC 120), 

(  *  STOLD( 120) , PX( 120,  6) 

C0MM0N/BD2/XPT( 150),  YPT<150>,  ZPTC150), WRF(150),  WRFR(150), 

*  KK(150, 4) 

COMMON/A/NPAN,  NPT ,  GEE,  RHO,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
(  COMPLEX  A,  B,  EYE 

DIMENSION  XPSL ( 3, 4), XPSLR(3, 4), PBB<120, 120) 

COMMON /PTST  /ARE 4  ( 200,  4),  X4(200,  4),  Y4(200,  4),  Z4(200,  4) 

*  , SEL  (  200,  4 ) 

DO  1500  J=1 ,  NP AN 
ARE4  (  J,  4  )  =- 1 .  0 
JT=4 

IF  ( KK  (  J,  4).  EQ.  0)  JT=3 
DO  1500  JJ=1,JT 
J2=l 

IF (  JJ.  LT.  JT  )  J2=JJ+1 
KF=KK ( J, JJ) 
i  KG=KK(J,  J2) 

X4(  J,  JJ ) = ( XPT ( KF  )  +XPT (KG  )  +  XPAN  ( J)  )/3.  0 
Y4(  J,  JJ )  =  (  YP  T  ( KF  )  +YPT  ( KG  )  +YPAN  ( J )  ) /3.  0 
Z4(  J,  JJ  )  =  (  ZPT  (  KF  )  +ZPT (  KG  )  +  ZPAN  ( J )  )  /3.  0 
('  AF=XPT  (  KF )  -XPAN  <  J ) 

BF=YPT ( KF ) -YP AN ( J ) 

CF=ZPT  <  KF )  — ZPAN ( J ) 

AG=XPT ( KG ) -XP AN ( J ) 

BG=YPT ( KG ) -YP AN ( J ) 

CG=ZPT ( KG ) -ZP AN ( J ) 

CALL  SELF(AF,  BF,  CF,  AG,  BG,  CG,  FEE) 

SEL ( J,  J J ) =FEE 
CR=AF*BG-BF*AG 
AR=BF*CG-CF*BG 
BR=CF-*AG-AF*CG 

ARE4 ( J, JJ)=0. 5*SQRT(AR*AR+BR*BR+CR*CR) 

1500  CONTINUE 

DO  127  N J=1 , NP AN 
DO  1277  M J= 1 , NP AN 
1277  PBB ( N J, M J ) =0 . 00 

P(NJ,  1  )  =0.  00 
P  (NJ,  2  )  =0.  00 
P(NJ,  3  )  =0.  00 
P  (NJ,  4  )  =0.  00 
P  (NJ,  5  )  =0.  00 
P  (NJ,  6> )  =0.  00 
DO  128  NK=1, 4 
ARN=ARE4 ( N J, NK ) 

IF( ARN.  LT.  O.  0)  GO  TO  128 

P1=0.  O 

P2=0.  O 

P3=0.  0 

P4=0.  0 

P  5=0.  O 

P6=0.  0 

X=X4'NJ,  NK) 

Y=Y4 ( NJ, NK) 

Z=Z4(NJ, NK) 

DO  138  M J=1 , NPAN 
DO  138  MK=1,  4 
XF=X4(MJ, MK) 

YF=Y4 ( M J, MK) 

ZF=Z4 ( M J, MK) 

ARM=ARE4(MJ, MK) 

IF(  ARM.  LT.  0.  00)  GO  TO  138 
I F ( N J.  NE.  MJ)  GO  TO  140 
IF  (MK.  NE.  NK)  GO  TO  140 
FRA=SEL ( MJ, MK  > /ARM 
GO  TO  1380 


non  non  non 


CSE ( K  >  =- 1 .  0 
SNE  ( K )  =0.  0 
YY  ( K  >  =0.  0 
ZZ(K)=Z2CK)-D 
R0L(K)=ZZ(K) 

N0N=K 
K=K+1 
Y2  ( K  >  =0.  0 

Z2 ( K  >  =  Z2 ( K-l ) -Z I NT 
190  CONTINUE 
Z2  ( K  )  =0.  0 
N0N=K— 1 

END  OF  FIRST  PASS.  ADD  ADDITIONAL  SEGMENTS  IF  REQUIRED.  . 

200  IF  (NON. GT. LIMIT)  GO  TO  290 
IF  (. NOT. ADJUST)  GO  TO  280 
IF  (NON.  GT.  MAXPTS)  GO  TO  280 
IF  ( MTCT.  EQ.  0 )  GO  TO  280 

mtot=m;ct+non 

Ml =NON~NWL 

IF  (MTOT  LE. MAXPTS)  GO  TO  230 

DECREASE  MORE  UNTIL  MTOT  IS  EQUAL  MAXPTS  .  . 

210  DO  220  K=l, Ml 

IF  (MORE(K).  LE.  0)  GO  TO  220 
MORE ( K ) =MORE ( K  >  — 1 
MT0T=MT0T-1 

IF  (MTOT.  LE.  MAXPTS)  GO  TO  230 
220  CONTINUE 
GO  TO  210 

INSERT  ADDITIONAL  SEGMENTS  AS  INDICATED  BY  MORE  . . 

230  1=1 

DO  270  M=1 i Ml 
11=1+1 

NUMBER=MORE(M) 

IF  (NUMBER.  LE.  0)  GO  TO  260 

N1=NUMBER+1 

Z0=Z2 ( I ) 

Y0=Y2( I  ) 

ZINT=Z2( II )-Z0 
YINT=Y2( II ) — YO 
Z I NT =Z I NT /FLOAT ( 2*N1 ) 

YINT=YINT/FLGAT(2*N1 > 

D=DEL( I ) /FLOAT (N1 > 

C=CSE ( I  ) 

S=SNE( I ) 

DO  240  K=l, N1 
P=(K-1 )#2 
Q=P+1 . 0 

ZNEW(K)=Z0+P*ZINT 
YNEUI ( K ) =YO+P*Y INT 
Z  ZNEW ( K ) =Z0+Q*Z INT 
YYNEW ( K ) = YO+Q*Y I NT 

RNEW ( K ) = ( CR- YYNEW ( K ) ) *S-ZZNEW(K )*C 
240  CONTINUE 

DO  250  K=l,  NUMBER 
DNEW ( K ) =D 


noon  ooooo  n  ooo  o  o  nnnon 


CNEW ( K ) =C 
250  SNEW ( K ) =S 

ZZ ( I ) =ZZN£W (N1  > 

VV( I )=YYNEW(N1 > 

ROL ( I ) =RNEW ( N1 ) 

DEL (I )=D 
NUT=N0N+1 

CALL  INSERT  ( Z2*  ZNEW ( 2 ) ,  1 1 ,  NUT,  NUMBER ) 

CALL  INSERT  ( Y2,  YNEW ( 2 ) ,  I  1  -  NUT, NUMBER ) 

CALL  INSERT  ( ZZ ,  Z ZNEW,  I , NON, NUMBER ) 

CALL  INSERT  ( YY,  YYNEW,  I , NON, NUMBER ) 

CALL  INSERT  < DEL, DNEW, I , NON, NUMBER > 

CALL  INSERT  ( ROL, RNEW, I , NON, NUMBER ) 

CALL  INSERT  ( CSE,  CNEW,  I ,  NON,  NUMBER  ) 

CALL  INSERT  <  SNE<  SNEW,  I  ,  NON,  NUMBER  ) 

260  1=1 1+NUMBER 

NON=NON+NUMBER 
270  CONTINUE 
280  NOE=NON+NON 

RETURN 

ERROR  DIAGNOSTICS. . 

TOO  MANY  WET  SEGMENTS.  . 

290  WRITE  (OUTPUT,  300)  XXSTA 

STOP  7 

300  FORMAT ( '  More  than  20  wet  segments  for  station  at  X='»F13.  5) 

END 

SUBROUTINE  FLOAT 

THIS  SUBROUTINE  APPLIES  THE  GIVEN  DRAFT  TO  THE  ORIGINAL  TABLE 
OF  OFFSETS. 

COMMON/ IO/INPUT,  OUTPUT,  BIF, OFF,  COF 

INTEGER  OUTPUT,  BIF,  OFF, COF 

COMMON/SHIP/ISTA,  LSTA,  ISWL,  LSWL,  TF,  TA,  XCG,  YCG,  DISPL 
COMMON/DRFT 12/  DR AFT ( 6,  2 ),  I DRAFT 

CCMMON/GEOMETR Y/MSTA, LPTS(25) ,  Y0FFC25,  25),  NAFT,  XAFT(25>, 

*  YAFT ( 25 ) , NFWD,  XFWD ( 25 ) ,  YFWD ( 25  > ,  XOFF (25), 

*  ZOFF (25, 25) ,  XFPERP,  XAPERP,  SHIPL, SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL  (  25  ) ,  WLC25),  INPTS  ( 25 ) ,  XWLF,  XWLA,  XXF, 

*  X X A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XX AFT ,  DX,  DX1, 

*  DX2, Z2(21 ) , Y2(21 ) - Z Z ( 20 ) , YY ( 20 ) , SNEC20), CSE (20), 

*  DEL  (20),  ROL  (20),  ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 

LOGICAL  WL,  ADJUST 

PLACE  SHIP  AT  GIVEN  DRAFT. . 


TF=DRAFT ( IDRAFT , 1 > 
TA=DRAFT ( IDRAFT,  2) 


IF  (XFPERP. NE.  XAPERP )  GO  TO  130 


r 


r 

v 


c 

( 


c 
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r 


V 


r 
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XFPERP=XOFF ( 1 ) 

XAPERP=XQFF (MSTA) 

IF  (  XFPERP.  NE.  XAPERP  )  GO  TO  130 
T AN=0.  0 

IF  (TF.  EQ.  TA)  GO  TO  140 

WR I TE ( OUTPUT, 570)  XFPERP, TF,  FA 

STOP  5 

130  TAN= ( TA-TF ) / ( XFPERP- XAPERP ) 

140  ISTA=0 
ISWL=0 
LSWL=0 
XX=XOFF< 1 ) 

DO  190  U= 1 , MSTA 

IF  (XX.  GE.  XOFF(U)  )  GO  TO  142 
WRITE  (OUTPUT, 575)  U, XOFF<U),XX 
STOP  6 
C 

C  TU  IS  DRAFT  OF  STATION  J. 

C 

142  XX=XOFF(U) 

TJ=( XFPERP-XX )*TAN+TF 
YNEXT=YOFF ( 1 , U ) -TU 
N=0 

IF  (YNEXT.  GT  0.0)  GO  TO  152 
LSTA= J 

IF  (ISTA.  EQ.  0)  ISTA=J 
Y1 < 1 , J)=YNEXT 
N=LPTS( J) 

DO  150  1=2,  N 

YNEXT=YOFF< I,  J)-TJ 
IF  ( YNEXT.  GT.  0.  0)  GO  TO  160 
Y1 ( I, U)=YNEXT 
150  CONTINUE 

I  =N+ 1 

IF  (YNEXT.  EQ.  0.  0)  GO  TO  170 
C 

C  SECTION  IS  NOT  SURFACE  PIERCING.  . 

C 

152  INPTS ( U ) =N 

WL  (  U  )  =.  FALSE. 

GO  TO  190 
C 

C  SECTION  IS  SURFACE  PIERCING.  FIND  WATERLINE  COORDINATES.. 

C 

160  YO=YOFF( I  —  1,  U)— TU 

IF  ( YO  EQ.  0.0)  GO  TO  170 
INPTS ( U) =1— 1 
ZO=ZOFF( 1-1 , U) 

ZWL ( U ) =ZO-YO* i ZOFF ( I , U ) -ZO )/( YNEXT- YO ) 

GO  TO  180 
C 

170  INPTS ( J ) =1-2 

ZWL ( U ) =ZOFF ( 1-1,  J) 

C 

180  WL  (  U )  =  .  TRUE. 

LSWL=U 

IF  (ISWL.  EQ.  0)  I SWL= J 
190  CONTINUE 

IF  (  ISTA.  NE.  0 )  GO  TO  200 
WRITE  (OUTPUT,  580) 

S7  0  ^  77 
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FIND  FORWARD  AND  AFTER  ENDS  OF  WETTED  HULL.  . 

200  XWLA=1 . 0E32 
XWLF=-XWLA 

IF  {  ISWL.  EQ.  0  )  GO  TO  210 
XWLF=X0FF( ISWL) 

XWLA=X0FF ( LSWL  ) 

210  XXF=X0FF( ISTA) 

IF  (NFWD.  EQ.O)  GO  TO  250 
IF  (NFWD.  GT.  1)  GO  TO  220 

XFWD(l)  DEFINED  AS  FORWARD  END  OF  WATERLINE.. 

XWLF=AMAX 1 ( XFWD (  1  > «  XWLF ) 

XXF=AMAX1 (XWLF,  XXF) 

GO  TO  250 

FIND  FORWARD  END  OF  WATERLINE  AND  FORWARD  END  OF  WETTED  HULL.  . 

220  Y0= ( XFWD ( 1 ) -XFPERP ) *TAN+YFWD ( 1 ) -TF 
DO  230  J=2, NFWD 
XX=XFWD( J) 

YNEXT= ( XX-XFPERP ) *TAN+YFWD ( J ) -TF 
IF  (YNEXT.  LT.  0.  0)  GO  TO  228 
IF  (YO.  GT.  0.  0)  GO  TO  229 
IF  ( YNEXT.  EQ.  0.  0)  GO  TO  227 

INTERPOLATE  FOR  WATERLINE. . 

X0=XFWD( J-l ) 

XX=(XX-XO) /( YO- YNEXT )*YO+XO 

227  IF  (XX.  LE.  XWLF)  GO  TO  229 
XWLF=XX 

228  XXF=AMAX1(XX. XXF) 

229  YO=YNEXT 

230  CONTINUE 

FIND  AFTER  END  OF  WATERLINE  AND  AFTER  END  OF  WETTED  HULL.  . 

250  XXA=XOFF ( LSTA ) 

IF  (NAFT.  EQ.  0)  GO  TO  290 
IF  (NAFT.  GT.  1)  GO  TO  260 

XAFT(l)  DEFINED  AS  AFTER  END  OF  WATER  LINE.. 

XWLA=AM  INK  X AFT  (  1  )  ,  XWLA  > 

XXA=AMIN1 ( XWLAi XXA) 

GO  TO  290 

FIND  AFTER  END  OF  WATERLINE  AND  AFTER  END  OF  WETTED  HULL.  . 

260  Y0= ( X AFT ( 1 ) -XFPERP ) *TAN+YAFT ( 1 ) -TF 
DO  270  J=2, NAFT 
XX=XAFT (J) 

YNEXT= ( XX-XFPERP ) *TAN+YAFT ( J ) -TF 
IF  (YNEXT.  LT.  0.  0)  GO  TO  268 
IF  (YO.  GT.  0.0)  GO  TO  268 
IF  (YNEXT.  EQ.  0.  O)  GO  TO  267 


C  INTERPOLATE  FOR  WATERLINE.  . 

C 

XO=XAFT< J-l ) 

XX=( XX-XO)/< YO-YNEXT)*YO+XO 

267  IF  (XX.  GE.  XWLA)  GO  TO  269 
XWLA=XX 

C 

268  X X A=AM INI ( XX,  XXA) 

269  YO=YNEXT 

270  CONTINUE 

290  IF  (  I SWL.  EQ.  0  )  ISWL=26 
C 

420  FORMAT  (32H0S  TATION  GEOMETRY) 

480  FORMAT  ( 22H0  DRAFT  FWD  (AT  X  =  ,  F10.  3<3H)  =  ,  F10.  3/5Xj  17HDRAFT  AF 
IT  (AT  X  =,  F10.  3,  3H)  =,  F10.  3) 

570  FORMAT  (61H0***  TWO  DRAFTS  SPECIFIED,  AND  LENGTH  BETWEEN  PERPS.  IS 
1  ZERO. /31H  ***  BOTH  PERPENDICULARS  AT  X  =,  F12.  4/16H  ***  DRAFT  FWD 
2=,F12.  4/16H  ***  DRAFT  AFT  =  ,  F12.  4) 

575  FORMAT  (12H0***  STATION,  13,  5H  (X  =, F12.  4,  1SH)  IS  OUT  OF  ORDER.  /29H 
1  ***  PREVIOUS  STATION  HAS  X  =  ,  F12.  4) 

580  FORMAT  (25H0***  SHIP  IS  ABOVE  WATER. ) 

C 

END 

SUBROUTINE  ERROR ( NO, IDUM, RDUM ) 

COMMON/ 10/ INPUT ,  OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT,  BIF,  OFF,  COF 
WRITE ( OUTPUT ,  10)  NO 
WR  ITE( OUTPUT,  1 1  )  IDUM,  RDUM 

10  FORMAT (  '  STOPPED  DUE  TO  ERROR  NO.  ',12,//) 

11  FORMAT(  IX,  13,  5X»  F10.  3) 

STOP 

END 

SUBROUTINE  BEER  (K) 

C 

Cl  TWO-DIMENSIONAL  HYDRODYNAMIC  CALCULATION  FOR  THE  SPECIAL  CASE 
Cl  OF  ZERO  OR  INFINITE  FREQUENCY. 

Cl 
C  5 

COMMON/GEOMETRY/MSTA,  LPTS(25), Y0FF(25, 25),  NAFT,  XAFT(25>, 

*  YAFT ( 25 ) ,  NFWD,  XFWD(25>,  YFWD(25>,  X0FF(25>, 

*  ZOFF ( 25, 25),  XFPERP,  XAPERP, SHIPL, SHIPB,  SHIPT, 

*  Y1  (21,  25)  ,  Z WL  (25  ) ,  WL(25),  INPTS(25),  XWLF,  XWLA,  XXF, 

*  XXA,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XX5TA,  XXAFT ,  DX,  DX1, 

*  DX2,  Z2 ( 21 ) , Y2 (21 ) ,  Z Z < 20 ) , YY ( 20 ) , SNE ( 20 ) , CSE ( 20 ) , 

*  DEL  (20),  ROL  (  20  ) ,  ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 

COMMON  //  HAH,  SAS,  RAR,  CCA,  HVH,  SVS,  RVR,  CCV,  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  Z 
1RI,  YRI,  EJT 

COMMON  /  /  HAO ( 24,  8 )  ,  BLDGP ( 20, 20 ) , YLCGP ( 20,  20 ) , BLOGM ( 20 

1, 20),  YLOGM  ( 20,  20),  C0NH(40),  CDNR(40,  2),  CR0LL(40,  40),  CHEAV(40,  40 ) ,  HE 
2AV I (20.  20)  ,  HEAVT ( 20,  20 ) ,  ROLL I (20, 20) , R0LLT(20, 20 ) , EJI , CZRI , CZLI , SZ 
3RI.  SZLI,  RAR  I,  RALI,  RBR  I ,  RBLI ,  CLI ,  CR  I ,  SL I ,  SR  I ,  I,  IPESO,  J,  NJ 
C5 

C5  INPUT  AND  OUTPUT  LOGICAL  UNITS.  . 

COMMON/ 10/ INPUT ,  OUTPUT,  BIF,  OFF, COF 
INTEGER  OUTPUT,  BIF, OFF, COF 
C  5 

C5  OUTPUT  LISTING  PAGE  HEADING  DATA.  . 

C  5 

HAH=0.  0 
SAS=0.  O 
RAR=0.  0 


CCA=0.  0 
HVH=0.  0 
SVS=0.  0 
RVR=0.  O 
CCV=0.  0 


NN=NON-NWL 


C3 

C 

IF  (WN.  NE.  0.  ) 

GO  TO  130 

C3 

ZERO  FREQUENCY 

CASE.  . 

C3 

DO  120  1=1, NN 

XM1=ZZ ( I >— Z2( 1 > 

XP1=ZZ ( I ) +Z2 ( 1 ) 

YP1=YY( I >+Y2( 1 > 

FCR1=. 5*AL0G(XM1**2+YP1**2) 

FCL1=.  5*AL0G ( XP 1 **2+YP 1 ##2 ) 

ACR 1 =AT AN2 ( YP 1 , XM1 ) 

ACL1 =ATAN2 ( YP 1 , XP1) 

DO  110  J=1,NN 

XM2=ZZ< I >-Z2( J+l > 

XP2=ZZ< I >  +  Z2< J+l ) 

YP2=YY ( I >+Y2< J+l ) 

FCR2=. 5*AL0G(XM2**2+YP2**2> 

FCL2=. 5*AL0G( XP2**2+YP2**2> 

ACR2=ATAN2 ( YP2, XM2 ) 

ACL2=ATAN2< YP2, XP2> 

SIMJ=SNE( I ) *CSE ( J ) -SNE ( J  >  *CSE ( I > 

C IMJ=CSE ( I ) *CSE ( J  >  +SNE ( I >  *SNE ( J ) 

SIP J=SNE ( I ) *CSE ( J ) +SNE ( J ) *CSE ( I ) 

C  IP  J=CSE C I  )*CF-E<  J)-SNE(  I  >*SNE( J) 

DCNR=SIP J* ( ^CR 1-FCR2 ) +C IP J* ( ACR 1-ACR2 ) 

PCR=CSE  <  ;XM1*FCR1-YP1*ACR1-XM1-XM2*FCR2+YP2*ACR2+XM2)+SNE 
1  (J)*(YP2*  CR2+XM2*ACR2+YP 1— YP1*FCR 1— XM1*ACR1— YP2) 

DCNL=rT  *<FCL2-FCL1 ) +C IM J* ( ACL2-ACL1 ) 

PCL=C^l_v  J)*(XP2*FCL2-YP2*ACL2-XP2-XP1*FCL1+YP1*ACL1+XP1  )+SNE 
1  ( J)-*  (  YP2*FCL2+XP2*ACL2-YP2-YP1*FCL1-XP1*ACL1+YP1 ) 

CROLL ( I , J ) =BLOGM ( J, I ) +2. 0* ( DCNR-DCNL ) 

CHEAV ( I , J)=BLOGP(J,  I) +2. 0* ( DCNR+DCNL > 

ROLLT ( I <  J ) =- YLOGM <  J,  I  > -2.  0* ( PCR-PCL ) 

HEAVT ( I , J ) =— YLOGP ( J, I ) -2. 0* ( PCR+PCL ) 

IF  ( J.  EG.  NN)  GO  TO  110 
XM1=XM2 
XP 1=XP2 
YP 1 =YP2 
FCR 1 =FCR2 
FCL1=FCL2 
ACR 1 =ACR2 
ACL1=ACL2 
110  CONTINUE 
120  CONTINUE 
GO  TO  160 

C3 

C3  INFINITE  FREQUENCY  CASE. . 

C3 

130  CONTINUE 

DO  150  1=1, NN 
DO  1  AO  J=l, NN 

CROLL ( I ,  J ) =BLOGM ( J,  I ) 

CHEAV ( I ,  J>  =BLOGP ( J,  I  ) 


ROLL! < I, J ) =- YLOGM ( U, I ) 

HEAVT (  I ,  J ) =- YLOGP (  J,  I ) 

140  CONTINUE 
150  CONTINUE 
C3 

C3  SOLUTION  FOR  EITHER  THE  ZERO  OR  INFINITE  FREQUENCY  CASE.  . 

C3 

160  CONTINUE 

DO  170  1=1, NN 

CONH ( I )=CSE< I ) 

CONR ( I, 1 ) =— SNE ( I ) 

CONR ( I, 2)=R0L( I ) 

170  CONTINUE 

I T =LNEGT  (  40,  NN,  1 ,  CHEAV,  CONH,  ERR,  HEAVI  ) 

IF  (  IT.  EQ.  0)  GO  TO  180 

IF  (WN  EQ.  0.  0)  WRITE  (OUTPUT,  230) 

IF  (WN.  NE.  0.0)  WRITE  (OUTPUT,  240) 

WRITE  (OUTPUT, 270)  XXSTA 
IF  (  IT.  NE  0)  GO  TO  190 
180  CONTINUE 

IT=LNEGT(40,  NN,  2,  CROLL,  CONR,  ERR,  ROLLI  ) 

IF  (  IT.  EQ.  0)  GO  TO  200 

IF  (WN.  EQ.  0.  0)  WRITE  (OUTPUT,  250) 

IF  (WN.  NE.  0.  05  WRITE  (OUTPUT,  260) 

WRITE  (OUTPUT, 270)  XXSTA 
IF  <  IT.  EQ.  1)  GO  TO  200 
190  WRITE  (OUTPUT, 280) 

STOP  10 
C3 

C3  EVALUATE  VELOCITY  POTENTIALS  AND  FORCE  COEFFICIENTS.  . 

C3 

200  DO  220  1=1, NN 
PAH=0.  0 
PAS=0.  O 
PAR=G.  O 
DO  210  U=1 ,  NN 

P AH=P AH+CONH ( U ) *HEAVT ( J,  I) 

P AS=P AS  +  CONR ( U,  1)*R0LLT(J,  I) 

PAR=PAR  +  CQNR ( J,  2>*R0LLT( J,  I) 

210  CONTINUE 

C  6 

C6  THE  PRESSURES  IN  PHASE  WITH  THE  SINUSOIDAL  DISPLACEMENT  ARE. 
C6 

C6  HEAVE  —  PAH  =  PAH*RHO*ES IG*ESIG 

C6  SWAY  —  PAS  =  PAS*RHO*ESIG*ESIG 

C6  ROLL  —  PAR  =  PAR*RHO*ESIG*ESIG 

C  6 

C6  THE  ACCELERATION  COMPONENTS  OF  THE  FORCE  ARE  EQUAL 

C6  IN  MAGNITUDE  TO  THE  ABOVE,  BUT  HAVE  THE  OPPOSITE  SIGN. 

C6 

DDD=DEL ( I ) 

DC I=CSE ( I ) *DDD 
DS I =-SNE ( I )*DDD 
DFR=ROL( I )*DDD 
C6 

C6  INTEGRATION  TO  OBTAIN  FORCE  ACCELERATION  COEFFICIENTS.  . 

C6 

HAH=HAH+PAH*DC  I 
SAS=SAS+PAS*DSI 
RAR=RAR+PAR*DFR 
CCA=PAR*DSI+PAS*DFR+CCA 


C6 

220  CONTINUE 

HAH=HAH*RH02 
SAS=SAS*RH02 
RAR=RAR*RH02 
CCA=CC  A-S-RH02/2.  0 

IF  ( WN.  EQ.  0.  )  HAH=99.  !  INFINITE  AT  ZERO  FREQ 

RETURN 
C 

230  FORMAT  (43H  ***  HEAVE  MATRIX,  ZERO  ENCOUNTER  FREQUENCY) 

240  FORMAT  C37H  ***  HEAVE  MATRIX,  INFINITE  FREQUENCY) 

250  FORMAT  (47H  ***  SWAY-ROLL  MATRIX,  ZERO  ENCOUNTER  FREQUENCY) 

260  FORMAT  (41H  ***  SWAY-ROLL  MATRIX,  INFINITE  FREQUENCY) 

270  FORMAT  (31H  ***  COEFFS.  FOR  STATION  AT  X  =,  F13.  5) 

280  FORMAT  (26H  ***  EXECUTION  TERMINATED.  ) 

C 

END 

SUBROUTINE  GIRL 
C 

Cl  CALCULATION  OF  FREQUENCY  INDEPENDENT  TERMS  TO  BE  USED  IN  THE 
Cl  TWO-DIMENSIONAL  HYDRODYNAMIC  CALCULATIONS. 

Cl 

C6  THIS  SUBROUTINE  IS  CALLED  ONCE  FOR  EACH  STATION  OF  THE  SHIP 
C6  WHEN  THE  HYDRODYNAMIC  COEFFICIENTS  ARE  BEING  GENERATED. 

C6 

C5 

COMMON/GEOMETRY/MSTA, LPTS(25>,  Y0FF(25,  25), NAFT,  XAFT(25), 

*  YAFT (25 ) ,  NFWD,  XFWDC25),  YFWD(25>,  X0FF(25>, 

*  ZOFF  ( 25,  25)  ,  XFPERP,  XAPERP,  SHIPL,  SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL  ( 25  ) ,  WL(25),  INPTS  ( 25  ) ,  XWLF,  XWLA,  XXF, 

*  X X A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2, Z2 ( 2 1 > , Y2 ( 21 ) , ZZ ( 20 ) , YY ( 20 ) , SNE(20), CSE(20), 

*  DEL ( 20 ) ,  ROL ( 20 ) ,  ADJUST,  WMAX, YMAX,  ZMAX, AREA,  VERT 

COMMON  //  HA1 ,  SA1 ,  RA1 ,  CA1,  HV1,  SV1,  RV1,  CV1,  RH02,  RSIG,  WN,  Ml.  W2,  ERR,  Z 
1RI,  YRI,  EJT 

COMMON  /  /  HAO ( 24,  8 ) ,  BLOGP ( 20, 20 ) , YLOGP ( 20,  20 ) ,  BLOGM (20, 

120),  YLOGM ( 20,  20),  I,  J,  ACLI,  ACLT ,  ACRI,  ACRT ,  APLI,  APLT ,  APRI,  APRT,  CIMJ, 
2CIPJ,  DCNL,  DCNR ,  DPNL,  DPNR,  FCLI,  FCLT ,  FCRI,  FCRT,  FPLI,  FPLT ,  FPRI,  FPRT ,  P 
3CL,  PCR,  PPL,  PPR ,  SIMJ.  SIPJ,  ZMI,  ZMT,  ZPI,  ZPT,  YMI,  YMT,  YPI,  YPT 
DATA  P IN/— 3. 14159265358979/ 

DATA  TPI/6. 28318530717958/ 

DO  160  1=1, NON 
ZMI =ZZ ( I  ) 

ZP I =ZM I 

YM I =YY ( I )-Y2( 1 ) 

YP I =YY ( I ) +Y2 ( 1 ) 

FPRI=ALOG(ZMI*ZMI+YMI*YMI )/2. 0 
FPLI =FPR I 

FCRI=ALOG(ZMI*ZMI+YPI*YPI >/2. 0 
FCLI=FCR I 

APRI=ATAN2( YMI,  ZMI) 

APLI=APR I 

ACRI=ATAN2( YPI, ZMI) 

ACLI=ACRI 
DO  150  J=1 , NON 
J1=J+1 

YMT =YY ( I ) -Y2 ( J1 > 

YPT=YY ( I ) +Y2 ( J1 ) 

ZMT=ZZ ( I >-Z2( J1 > 

ZPT=ZZ( I >+Z2( J1 ) 

C  CALCULATE  ANGLES  (MEASURED  OUTSIDE  SECTION).. 


c 


APRT=ATAN2( YMT, ZMT ) 


IF 

(  ZMT.  GE.  0.  0) 

GO  TO  130 

IF 

<  Jl.  GT.  I  >  GO 

TO  110 

IF 

(YMT.  LT.  0.  0) 

APRT=APRT+TPI 

GO 

TO  120 

110 

IF 

(YMT.  GE.  0.  0) 

APRT=APRT-TPI 

120 

IF 

(YPT.  LT.  0.  0) 

GO  TO  130 

ACRT=P I N 
GO  TO  140 


130  ACRT=ATAN2  ( YPT, ZMT) 

140  ACLT=ATAN2( YPT, ZPT) 

APLT =AT AN2 ( YMT ,  ZPT) 

FPRT=AL0G(ZMT*ZMT+YMT*YMT)/2.  0 
FPLT =  ALOG ( ZP  T*ZP  T+YMT*YMT ) /2.  0 
FCRT=ALOG( ZMT*ZMT+YPT*YPT > /2.  0 
FCLT=AL0G(ZPT*ZPT+YPT*YPT)/2.  0 
S I M J=SNE ( I ) *CSE ( J ) -SNE ( J ) *CSE ( I ) 

CIMJ=CSE( I >*CSE< J)+SNE( I ) *SNE ( J ) 

S IP J=SNE ( I )*CSE( J)+SNE< J)*CSE( I ' 

CIP J=C5E ( I ) *CSE ( J ) -SNE ( I )*SNE< J) 

DPNR=S I M  J* (FPRI-FPRT) +C IMJ* ( APR  I -APRT ) 

PPR=CSE  (  J  )  *  (  ZM I  *FPR  I-YMI*APR  I-ZMI-ZMT*FPRT+YMT*APRT+ZMT  >+SNE 
1  ( J ) * ( YMI*FPR I+ZMI*APRI-YMI-YMT*FPRT-ZMT*APRT+YMT ) 

DPNL=SI PU* (FPLT— FPL I ) +C IP J* ( APLT-APLI ) 

PPL=CSE  (  J  )  *  (  ZPT*FPLT— YMT*APLT— ZPT-ZP  I*FPLI+YMI*APLI+ZP  I  )+SNE 
1  ( J ) * ( YMI*FPLI+ZP I*APLI+YMT— YMT*FPLT-ZPT*APLT-YMI > 

DCNR=SIP J* ( FCR I-FCRT ) +C IP J* < ACR I-ACRT ) 

PCR=CSE< J)*( ZMI*FCRI-YPI*ACRI-ZMI-ZMT*FCRT+YPT*ACRT+ZMT)+SNE 
1  ( J)*(YPT*FCRT+ZMT*ACRT+YPI-YPI*FCRI-ZMI*ACRI-YPT) 

DCNL=SIMJ*(FCLT-FCLI ) +C I MJ* ( ACLT-ACLI ) 

PCL=CSE( J)*( ZPT*FCLT-YPT*ACLT-ZPT-ZPI*FCLI+YPI-fc  ACLI  +  ZPI )+SNE 
1  < J)*( YPT*FCLT+ZPT*ACLT-YPT-YPI*FCLI-ZPI*ACLI+YPI ) 

BLOGP ( Ji I ) =DPNR+DPNL-DCNR-DCNL 

YLOGPCJ,  I  )=PPR+PPL-PCR-PCL 

BLOGM (J, I )=DPNR-DPNL-DCNR+DCNL 

YLOGM (J, I )=PPR-PPL-PCR+PCL 

IF  (J.  EG.  NON)  GO  TO  150 

FPR I =FPRT 

FPL I =FPLT 

FCR I =FCRT 

FCLI=FCLT 

APR  I =APRT 

APL I =APLT 

ACR I =ACRT 

ACL I =ACLT 

ZMI=ZMT 

YMI=YMT 

ZPI=ZPT 

YP I=YPT 

150  CONTINUE 
160  CONTINUE 
RETURN 

END 

SUBROUTINE  WINE  (K) 


C 

Cl  TWO-DIMENSIONAL  HYDRODYNAMIC  CALCULATION  FOR  NON-ZERO  FREQUENCIES. 

Cl 

C6  THIS  SUBROUTINE  IS  CALLED  FOR  EACH  STATION  AND  ALL  NON-ZERO 

C6  FREQUENCIES  WHEN  THE  HYDRODYNAMIC  COEFFICIENTS  ARE  BEING 

C6  GENERATED. 


C6 
C  5 
C  5 


INPUT  AND  OUTPUT  LOGICAL  UNITS.  . 
COMMON/ 10/ I NPUT  ,  OUTPUT,  BIF, OFF,  COF 
INTEGER  OUTPUT,  BIF, OFF, COF 


COMMON/GEOMETRY/MSTA, LPTS(25) , Y0FF(25, 25), NAFT, XAFT(25>, 

*  YAFT ( 25 ) ,  NFWD,  XFWD ( 25 )  ,  YFWD(25),  XQFF(25), 

*  ZOFF ( 25 , 25), XFPERP, XAPERP, SHIPL, SHIPB, SHIPT, 

*  Y1  (21,  25),  Z  WL  (  25  >  ,  WL(25),  I NPTS  (  25  > ,  XWLF,  XWLA,  XXF, 

*  X X A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2,  Z2(21  ),  Y2(21  ),  ZZ(20),  YY(20>,  SNE(20>,  CSE(20>, 

*  DEL  (  20  )  ,  ROL  (  20  ) ,  ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 

COMMON  //  HAH,  SAS,  RAR,  CCA,  HVH,  SVS,  RVR,  CCV,  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  Z 
1 R I ,  YR I , EJT 

COMMON  /  /  HAO ( 24, B ) , BLOGP ( 20, 20 ) , YLOGP ( 20, 20 ) , BLOGM ( 20 

1,  20),  YlOGM  (  20,  20),  CONH  (  40  )  ,  C0NR(40,  2),  CROLL  ( 40,  40),  CHEAV(40,  40  ) ,  HE 
2AVI (20,  20),  HEAVT ( 20, 20), ROLL I (20, 20), ROLLT(20, 20 ) ,  EJI ,  CZRI ,  CZLI ,  SZ 
3RI,  SZLI,  RAR  I,  P  AL I ,  RBR  I ,  RBL I ,  CL  I ,  CR  I ,  SLI ,  SR  I ,  I ,  IPESO,  NI 
DO  110  1=1, NON 
NI=NON+I 
CONH  (  I  )  =0.  0 
CONR  (  I,  1  )=0.  O 
CONR  (I,  2  )  =0.  0 
CONH  v  N I ) =CSE ( I ) 

CONR (NI, 1 ) =— SNE ( I ) 

CONR (NI ,  2 ) =ROL (  I  ) 

ZRI=WN*ZZ ( I ) 

YRI=-WN*(YY( I )+Y2( 1 ) > 

EJT =EXP ( -YR I ) 

EJI=E JT 

CALL  ROMEO  ( C ZR I ,  SZR I , RAR I , RBR I , CR  I ,  SR  I  ) 

CZLI=CZR I 
SZLI=SZR I 
RAL I =R AR I 
RBLI=RBRI 
CL  I =CR  I 
SL I =SR I 

CALL  WOMEN  ( I ,  BLOGP ( 1 ,  I ) , YLOGP ( 1 ,  I ) , BLOGM ( 1 ,  I ) ,  YLOGM ( 1 ,  I ) ,  CHEAV 
1  (1,1),  CROLL  (  1 ,  I  )  ,  HEAVI  (1,  I  ) ,  HEAVT  (  1 ,  I  ),  ROLL  I  (1,  I  ) ,  ROLLTC 1,  I  )  ) 

110  CONTINUE 

IF  (NWL.  EQ.  0)  GO  TO  130 
I=N0E~NWL+1 
DO  120  1=1, NOE 
CONH  (  I  )  =0.  0 
CONR  (1,1)  =0.  0 
CONR  (1,2)  =0.  O 
120  CONTINUE 

130  IT=JULIET( 1, CHEAV, CONH) 

IF  (IT.  EQ.  0)  GO  TO  140 
WRITE  (OUTPUT, 180)  K, WN, XXSTA 
IF  (  IT.  NE.  1  >  GO  TO  150 
140  IT=JULIET(2, CROLL, CONR ) 

IF  (  IT.  EQ.  0)  GO  TO  160 
WRITE  (OUTPUT, 190)  K, WN, XXSTA 
IF  (  IT.  EQ.  1  )  GO  TO  160 
150  WRITE  (OUTPUT, 200) 

STOP  11 
C 

160  HAH=0.  0 


SAS=0.  0 
RAR=0.  0 
CC A=0.  0 
HVH=0.  0 
SVS=0.  0 
RVR=0.  0 
CCV=0. 0 
C9 

C9  SLIGHT  INCREASE  IN  SPEED  IF  THE  FINAL  INTEGRATION  AVOIDS  THE 
C9  INTERIOR  SURFACE  SEGMENTS. . 

C9  N I  =  NON  -  NWL 

C9  DO  ***  1=1/ NI 

C9 

DO  170  1=1/ NON 

CALL  SONG  ( HEAV 1(1,  I )  /  HEAVT ( 1 ,  I ) »  ROLL 1(1,  I ) ,  ROLLT ( 1,  I ) ,  I  ) 

170  CONTINUE 
C6 

C6  FORCE  COEFFICIENTS. 

C6  FORCE  IS  THAT  WHICH  MUST  BE  APPLIED  TO  THE  CYLINDER  (PER  UNIT 
C6  LENGTH)  TO  CAUSE  SINUSOIDAL  OSCILLATIONS  AT  THE  GIVEN  FREQUENCY 

C6  AND  UNIT  AMPLITUDE. 

C6  COEFFICIENTS  ARE  THE  P/.RTIAL  DERIVATIVES  OF  THE  FORCE  BY  THE 
C6  ACCELERATION  OR  VELOCITY  COMPONENT  OF  THE  GIVEN  MOTION. 

C6 

C6  ACCELERATION  TERMS.  . 

C6 

HAH=HAH*RH02 
SAS=SAS*RH02 
RAR=RAR*RH02 
CCA=CCA*RH02/2.  O 
C6 

C6  VELOCITY  TERMS.  . 

C6 

HVH=HVH*RSIG 
SVS=SVS*RSIG 
RVR=RVR*RSIG 
CCV=CCV*RSIG/2. 0 
C6 

RETURN 

C3 

180  FORMAT  (36H  ***  HEAVE  MATRIX,  FREQUENCY  INDEX  =, 13, 15H,  WAVE  NUMBE 
1R  =,  1PE13.  5/31H  ***  COEFFS.  FOR  STATION  AT  X  =,  0PF13.  5) 

190  FORMAT  (40H  ***  SWAY-ROLL  MATRIX,  FREQUENCY  INDEX  =, 13, 15H,  WAVE  N 
1UMBER  =  ,  1PE13.  5/31H  ***  COEFFS.  FOR  STATION  AT  X  =,  0PF13.  5) 

200  FORMAT  (26H  ***  EXECUTION  TERMINATED.  ) 

C 

END 

SUBROUTINE  WOMEN 

1  (I,  BLOGP,  YLOGP,  BLOGM,  YLOGM,  CHI,  CRI,  HII,  HTI,  RII,  RTI  ) 

C 

REAL  BLOGP ( 1 ) ,  BLOGM ( 1 ) ,  YLOGP ( 1 ) , YLOGM ( 1 ) , CHX ( 1 > , HI  I < 1 ) *  R  X  I < 1 > .  CR I ( 
11),  HT  1(1),  RTI  (  1  ) 

C5 

COMMON/GEOMETRY/MSTA,  LPTS(25) ,  Y0FF(25,  25),  NAFT,  XAFT(25>, 

*  YAFT ( 25 ) , NFWD,  XFWD(25) , YFWD(25) ,  X0FF(25) , 

*  ZOFF (25, 25) ,  XFPERP,  XAPERP, SHIPL, SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL(25),  WL(25),  INPTS(25>,  XWLF,  XWLA,  XXF, 

*  XXA, TAN, NON, NOE, NWL, CR, XXFWD, XXSTA, XXAFT , DX, DX1, 

*  DX2,  Z2 ( 2 1 ) , Y2 ( 21 ) ,  Z  Z ( 20 ) , YY ( 20  > , SNE(20>, CSE(20>, 

*  DEL  (  20  )  ,  ROL  (  20 ) ,  ADJUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 

COMMON  //  HA1 ,  SA1 ,  RA1 ,  CA1,  HV1,  SV1,  RV1,  CV1,  RH02,  RSIG,  WN,  Wl,  UU,  ERR,  X 


on  no 


1RT  , YRT  < EJT 

COMMON/  /  HA0(24, 8) ,  BP (20, 20). YP (20, 20), BM(20,  20),  YM(2 

10,  20) ,  CONH ( 40 )  ,  CONR (40, 2) , CR0LL(40, 40), CHEAV(40,  40) ,  HEAYI (20,  20 > ,  H 
2EAVT  ( 20,  20),  ROLLI  (20,  20),  R0LLT(20,  20) ,  EJI,  CZRI ,  CZLI,  SZRI,  SZLI,  RAR  I 
3,  RALI ,  RBR  I ,  RI3LI,  CL  I,  CRQ,  SLI,  SRI 
DATA  TPI/6. 28318530717958/ 

YYI=YY ( I ) 

ZZ  I  -ZZ  (  I  ) 

SI=SNE( I ) 

CI=CSE( I > 

DO  110  J=l, NON 

XRT=WN*(ZZI-Z2< J+l ) ) 

YRT=-WN* ( YY I+Y2 ( J+l ) ) 

EJT=EXP (-YRT) 

CALL  ROMEO  (CZRT,  SZRT,  RART,  RBRT,  CRT,  SRT) 

XRT=WN*(ZZI+Z2< J+l) ) 

CALL  ROMEO  (CZLT,  SZLT,  RALT,  RBLT,  CLT,  SLT) 

C J=CSE ( J  > 

SJ=SNE ( J  > 

SSS=SI*CJ 
TTT=SJ*CI 
UUU=C I *CJ 
VW=SI*SJ 
CIPJ=UUU-VVV 
SIP J=SSS+TTT 
SIMJ=SSS-TTT 
CIMJ=UUU+VW 

SSS=SIMJ*(CLI-CLT)-CIMJ*(SLI-SLT> 

TTT=SIP J* ( CRQ-CRT > -C IP J* ( SR  I -SRT ) 

UUU=SJ* ( RALI-RALT ) +C  J* ( RBLT-RBLI ) 

WV=SJ* ( RAR I -RART ) +C  J* (RBR I -RBRT  > 

WWW=EJT*(SZRT*CIPJ-CZRT*SIPJ)-EJI*(SZRI*CIPJ-CZRI*SIPJ> 

RRR=E JT * (SZLT*C I M J-C  ZLT *SIMJ ) -E JI* ( SZL I*C IMJ-CZLI#SIM J  > 

QQQ=EJ I * (SZR I*C J-C  ZR I *S J ) -E JT* ( SZRT*C J-C  ZRT*SJ ) 

PPP=EJI* (SZLI*C J+CZLI*SJ ) -EJT* ( SZLT*C J+CZLT*SJ ) 

CHI ( J ) =BLOGP ( J ) +2. O* ( TTT-SSS ) 

CR I ( J ) =BLOGM ( J ) +2.  0* ( TTT+SSS  > 

H 1 1  ( J )  =  YLOGP  (  J  )  +UU*  ( VW+UUU ) 

R 1 1  (  J )  =YLOGM  ( J  )  +UU*  ( WV-UUU ) 

CHN(NJ)  =  CHI ( J) 

CRN ( NJ )  =  CRI(J) 

NJ=NON+J 

CHI ( NJ ) =TP I* ( WWU-RRR ) 

CR I ( N J ) =TP I * ( WWW+RRR ) 

HTI ( J ) =W1* ( GQG-PPP ) 

RTI ( J ) =W1* ( QQQ+PPP ) 

CHN ( J )  =  -CHI (NJ) 

CRN ( J )  =  -OR  I (NJ) 

IF  ( J.  EQ.  NON)  GO  TO  1  10 

EJI=EJT 

CRQ=CRT 

SRI=SRT 

CLI=CLT 

SLI=SLT 

RAR I=R ART 

RBR I =RBRT 

RALI=R ALT 

RBLI=RBLT 

CZRI=CZRT 

SZR I=SZRT 

CZLI=CZLT 


SZL I =SZLT 
110  CONTINUE 
RETURN 
C 

END 

SUBROUTINE  SONG  ( HAI ,  HOT, R A I . ROT,  I ) 

C 

DIMENSION  HAI (1),  H0T<1),  RAI(l),  R0T(1>,  PP(&) 

C5 

COMMON/GEOMETRY/MSTA,  LPT3<25> , Y0FF(25,  25) , NAFT,  XAFT(25>, 

*  YAFT ( 25 ) , NFWD, XFWD(25), YFWD(25), X0FF(25), 

*  ZQFF (25/ 25), XFPERP, XAPERP, SHIPL, SHIPB, SHIPT, 

*  Y1  (21, 25),  Z  WL  (  25  ) ,  WL<25),  INPTS  (  25 ) ,  XWLF,  XWLA,  XXF, 

*  XXA,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2,  Z2 ( 21 ) , Y2 (21),  Z Z ( 20 ) , YY ( 20 ) , SNE(20), CSE(20), 

*  DEL  (20),  ROL  (  20 ) ,  ADJUST,  UMAX,  YMAX,  ZMAX,  AREA,  VERT 

COMMON  //  HAH,  SAS,  RAR,  CCA,  HVH,  SVS,  RVR,  CCV,  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  Z 
1RI,  YRI,  EJT 

COMMON  /  /  HAO ( 24, S ) , BLOGP ( 20, 20 ) , YLOGP ( 20, 20 ) , BLOGM ( 20 

1 , 20 ) , YLGGM ( 20,  20 ) ,  CONH ( 40 ) , CONR ( 40,  2 ; 

PAH=0.  O 
PAS=0.  0 
P  AR=0.  0 
PVH=0.  O 
PVS=0.  O 
PVR=0.  O 

DO  110  J=l, NON 
NJ=NON+J 

P aH=P AH+CONH ( J ) *HOT ( J ) -CONH ( N J ) *HA I ( J ) 

PAS=P AS+CONR ( J, 1 )*ROT( J)-CONR (NJ, 1 )*RAI(J) 

PAR=PAR+CONR ( J,  2 ) *ROT ( J ) -CONR ( N J, 2)*RAI ( J) 

P VH=P VH+CONH ( J ) *HA I ( J ) +CONH ( N J ) *HDT ( J ) 

PVS=PVS+CONR( J,  1 )*RAI < J)+CQNR(NJ,  1 ) *RQT ( J ) 

PVR=PVR+CONR( J,  2 ) *RAI ( J ) +CONR ( NJ, 2)*R0T( J) 

110  CONTINUE 
DDD=DEL( I ) 

DC I=CSE ( I ) *DDD 
DSI=-SNE( I )*DDD 
DFR=RQL ( I ) *DDD 

C6  THE  PRESSURES  ON  THIS  SEGMENT  OF  THE  CYLINDER  MAY  BE  CALCULATED. 

C6 

C6  THE  PRESSURES  IN  PHASE  WITH  THE  SINUSOIDAL  DISPLACEMENT  ARE.  . 

C6 

C6  HEAVE  —  PAH  =  PAH*RHO*ESIG*ESIG 

C6  SWAY  —  PAS  *  PAS*RHO*ESIG*ESIG 

C6  ROLL  —  PAR  =  PAR*RHO*ESIG*ESIG 

C6 

C6  OF  COURSE  THE  ACCELERATION  COMPONENTS  OF  THE  FORCE  ARE  EQUAL 

C6  IN  MAGNITUDE  TO  THE  ABOVE,  BUT  HAVE  THE  OPPOSITE  SIGN. 

C6 

C6  THE  PRESSURES  IN  PHASE  WITH  THE  SINUSOIDAL  VELOCITY  ARE.  . 

C6 

C6  HEAVE  —  PVH  =  PVH*RHO*ESIG*ESIG 

C6  SWAY  —  PVS  =  PVS*RHO*ESIG*ESIG 

C6  ROLL  —  PVR  =  PVR*RHO*ESIG*ESIG 

C6 
C6 

C6  INTEGRATION  TO  OBTAIN  FORCE  ACCELERATION  COEFFICIENTS.. 

C6 

HAH=HAH+P AH*DC I 


SAS=SAS+PAS*DSI 

RAR=RAR+PAR*DFR 

CCA=PAR*DSI+PAS*DFR+CCA 

INTEGRATION  TO  OBTAIN  FORCE  VELOCITY  COEFFICIENTS.. 

HVH=HVH+PVH*DCI 
SVS=SVS+P VS*DS I 
RVR=RVR+PVR*DFR 
CC V=P VR*DS I +PVS*DFR+CCV 

AT  THIS  POINT  THE  PRESSURES  REQUIRE  THE  MODIFICATIONS  NOTED 
ABOVE  TO  GIVE  THE  DIMENSIONAL  VALUES. 

THE  INTEGRATIONS  OF  THE  PRESSURES  ARE  COMPLETED  ELSEWHERE 
IN  THE  PROGRAM  TO  GIVE  DIMENSIONAL  FORCE  COEFFICIENTS. 

RETURN 

END 

SUBROUTINE  ROMEO  (  C,  S,  RA,  RB,  C  IN,  SON) 

EXPONENTIAL  INTEGRAL  WITH  COMPLEX  ARGUMENT. 

THE  ARGUMENT  IS  SUPPLIED  THROUGH  BLANK  COMMON  AS  THE  VARIABLES 
X  AND  Y  . 

PARAMETERS  AND  VARIABLES. . 

X  —  REAL  PART  OF  ARGUMENT 

Y  —  IMAGINARY  PART  OF  ARGUMENT 

E  —  EXP (  -Y  ) 

C  —  COS<  X  ) 

S  —  SIN  (  X  ) 

CIN  —  REAL  RESULT 

SON  —  IMAGINARY  RESULT 

RA  —  ALOG (  X**2  +  Y**2  ) /2. 0  -  CIN 

RB  —  ATANC  X/Y  )  -  PI/2.  0  +  SON 


COMMON/GEOMETRY/MSTA,  LPTS(25) , Y0FF(25, 25), NAFT,  XAFT<25>, 

*  YAFT ( 25 ) , NFWD,  XFWD  <  25 ) , YFWD ( 25 ) ,  XOFF ( 25 ) , 

*  ZOFF ( 25,  25),  XFPERP,  XAPERP,  SHIPL,  SHIPB,  SHIPT, 

*  Y1 (21, 25) ,  ZWLC25) , WL(25) ,  INPTS(25>,  XWLF,  XWLA,  XXF, 

*  XXA,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XXAFT ,  DX,  DX1, 

*  DX2,  Z2 ( 2 1 ) ,  Y2 (21 ) ,  Z Z ( 20 ) ,  Y Y ( 20 ) , SNE(20),  CSE(20), 

*  DEL  ( 20  ) ,  ROL  ( 20  ) ,  ADUUST,  WMAX,  YMAX,  ZMAX,  AREA,  VERT 

COMMON  /  /  HA1 ,  SA1 ,  RA1 ,  CA1,  HV1,  SV1,  RV1,  CV1, 

1  RHQ2,  RSIG,  WN,  Wl,  W2,  ERR,  X,  Y,  E 

INPUT  AND  OUTPUT  LOGICAL  UNITS.  . 

COMMON/ 10/ INPUT,  OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT, BIF, OFF, COF 

DATA  GAMMA  /O.  5772  15664  90153  2B606  06512/ 

DATA  HALFPI/1.  5707  96326  79489  66192  31322/ 

AT=ATAN2( X,  Y) 

ARG=AT-HALFPI 

C=COS(X> 

S=S IN ( X  > 

R=X*X+Y*Y 
AL=0. 5*AL0G(R ) 

TEST=0.  00001 


Y 


IF  (R.  LT.  1.  )  GO  TO  130 
T£ST=. 1 *TEST 
IF  (R.  LT.  2.  )  GO  TO  130 
TEST=. 1*TEST 
IF  (R.  LT.  4.  )  GO  TO  130 
TEST=. 1*TEST 
130  SUMC=GAMMA+AL+Y 
SUMS=AT+X 
TC=Y 
TS=X 
C0X  =  1. 

DO  140  K=2< 501 
TO=TC 

FACT=COX/FLOAT  <  K ) **2 
COX=K 

TC=FACT*(Y*TC-X*TS) 

TS=FACT* ( Y*TS+X*TO ) 

SUMC=SUMC+TC 

SUMS=SUMS+TS 

IF  ( ( ABS  CTC ) +ABS ( TS ) ) .  LE.  TEST  >  GO  10  150 
140  CONTINUE 

WRITE  (OUTPUT,  190)  XXSTA,  X,  Y,  WN 
STOP  12 

150  CIN=E*(C*SUMC+S*SUMS) 

SON=E* ( S*SUMC-C*SUMS ) 

RA=AL— C IN 
RD=ARG+SON 
RETURN 
C 

190  FORMAT  ( 59H0***  NON-CONVERGENT  EXPONENTIAL  INTEGRAL  FOR  STATION  AT 
1  X  =,  F13.  5/22H  ***  PARAMETERS  —  X  =,  1PE13.  5,  5H,  Y  =  ,  E13.  3,  1 5H,  WA 
2VE  NUMBER  =, E13.  5) 

C 

END 

FUNCTION  JULIET  (N1 , A, B ) 

C 

C. .  SOLVES  SIMULTANEOUS  LINEAR  EQUATIONS  BY  GAUSSIAN  REDUCTION. 

C. .  FOR  THE  SPECIALIZED  MATRICES  IN  THE  SUBROUTINE  WINE. 

C 

REAL  A  (40,  1  ),  B(40,  1  ) 

C2 

C2  THE  A  MATRIX  MUST  BE  DIMENSIONED  WITH  EXACTLY  40  ROWS  AND 
C2  AT  LEAST  40  COLUMNS.  THE  B  MATRIX  MUST  ALSO  BE  DIMENSIONED 

C2  WITH  EXACTLY  40  ROWS  AND  AT  LEAST  N1  COLUMNS. 

C2 

C5 

C 5  INPUT  AND  OUTPUT  LOGICAL  UNITS.  . 

COMMON/ 10/ INPUT ,  OUTPUT,  BIF,  OFF,  COF 
INTEGER  OUTPUT,  BIF, OFF, COF 
C5 
C  5 

COMMON/GEOMETRY/MSTA, LPTS(25), Y0FF<25, 25), NAFT  XAFT(25>, 

*  YAFT ( 25 ) ,  NFWD,  XFWD(25), YFWD(25>,  X0FF(25), 

*  ZOFF ( 25,  25),  XFPERP,  XAPERP,  SHIPL,  SHIPB,  SHIPT, 

*  Y1  (21,  25),  ZWL  (25  ) ,  WL(25),  INPTS(25>,  XWLF/XWLA,  XXF, 

*  X X A,  TAN,  NON,  NOE,  NWL,  CR,  XXFWD,  XXSTA,  XX AFT,  DX,  DX1, 

*  DX2,  Z2 ( 2 1 ) ,  Y2 ( 21 ) ,  Z  Z ( 20 ) , YY ( 20 ) , SNE < 20 ) , CSE ( 20 ) , 

*  DEL ( 20 ) ,  ROL ( 20  > ,  ADJUST,  WMAX,  YMAX,  ZMAX, AREA,  VERT 

COMMON  //  HA1 ,  SA1,  RA1 ,  CA1.  HV1,  SV1,  RV1,  CV1,  RH02,  RSIG,  WN,  Wl,  W2,  ERR,  Z 
1RI,  YRI,  EJT 
C 


onn  nnnn  nnn  non  nnnn  n  non 


COMMON/  /  HAO (24,  8  > ,  BLOGP ( 20,  20/  4 ) , CONH ( 40.  3  > ,  CROLL ( 40 

1,  40,  2)  -  HEAVI  (20,  20,  4) ,  EJI,  CZRI,  CZLI,  SZRI,  SZLI,  RAR I ,  RALI ,  RBR  I ,  RBL I , 
2CLI,  CRQ,  SLI,  SRI,  Z(40) 

C 

N2=N0E/2 
D=l.  0 

. .  COMPLETE  THE  MATRIX  A. 

DO  120  J=l, N2 
L=N2+J 

DO  110  1=1, N2 
K=N2+I 

A(I,  L  )  =-A  (  K,  J) 

A  ( K,  L  >  =A  (  I ,  J  ) 

110  CONTINUE 
120  CONTINUE 

NM1 =NOE— 1 

. .  SOLVE  AT*X=B  FOR  X  ,  WHERE  AT  IS  THE  TRANSPOSE  OF  THE 
MATRIX  A  .  STORE  THE  X  VECTOR (S>  IN  B  . 

DO  210  U=1 , NM1 
J1=J+1 

. .  FIND  ELEMENT  OF  ROW  J,  COLS  J — N,  WHICH  HAS  MAX  ABSOLUTE  VALUE. 
LMAX=U 

RMAX=ABS ( A ( J, J> ) 

DO  130  K=J1,  NOE 

RNEXT=ABS ( A ( J, K) ) 

IF  (RMAX.  GE.  RNEXT)  GO  TO  130 
RMAX=RNEXT 
LMAX=K 

130  CONTINUE 

IF  (LMAX.NE.  J>  GO  TO  140 

. .  MAX  ELEMENT  IS  ON  DIAGONAL. 

IF  ( A  ( J,  J)  )  170,  260,  170 

. .  MAX  ELEMENT  IS  NOT  ON  DIAGONAL. 

. .  EXCHANGE  COLUMNS  J  AND  LMAX. 

140  DO  150  L=J, NOE 

W=A ( L, J) 

ACL,  J  )  =A  (  L,  LMAX  > 

ACL, LMAX )=W 
150  CONTINUE 

. .  EXCHANGE  ROWS  J  AND  LMAX. 

DO  160  L=1 , N1 
W=B  ( J,  L) 

B<  J,  L  )  =B  ( LMAX,  L) 

B (LMAX, L)=W 
160  CONTINUE 

D=-D 
C 


non  non  non  n  ono  on 


ZERO  ROW  J  TO  RIGHT  OF  DIAGONAL. 


170  D=A< J. J)*D 

V=l.  0/A(  J,  J) 

Z( J)=V 

DO  200  K=J1 <  NOE 

IF  (A<  J,  K).  EG.  0.  0)  GO  TO  200 
W=-V*A  (  J,  K) 

DO  1  BO  L=J1  /  NOE 

A  (  L,  K)=W*A(L,  J)+A(L,  K) 

180  CONTINUE 

DO  190  L=1 , N1 

B  (  K,  L)=W*B< J,  L)+B(K,  L) 

190  CONTINUE 

200  CONTINUE 
210  CONTINUE 

D=A(N0E, N0E)*D 

IF  (A(N0E,  NOE) .  EQ.  0.  0>  GO  TO  260 
1 ( NOE ) = 1 . 0/ A ( NOE/ NOE) 

.  OBTAIN  SOLUTION  BY  BACK  SUBSTITUTION. 

DO  220  L= 1 .  N1 

B ( NOE< L)=Z(NOE)*B(NGE, L> 

220  CONTINUE 

DO  250  K=1 , NM1 
J=NOE-K 
J 1 = J+ 1 

DO  240  L=1 , N1 
W=0.  o 

DO  230  I=J1 >  NOE 

W=A (  I,  J)«B(  I.  L)+W 
230  CONTINUE 

B  (  Ji  L  )  -  (  B  (  J<  L)-W)*Z(J) 

240  CONTINUE 
250  CONTINUE 

IF  (ABS<D). LT. ERR)  GO  TO  270 
JULIET=0 

.  NO  PROBLEMS  DURRING  THIS  EXECUTION. 

RETURN 

.  SINGULAR  MATRIX — MAXIMUM  ELEMENT  IN  ROW  IS  ZERO. 

260  JULIET=3 

WRITE  (OUTPUT,  280) 

RETURN 

.  ABSOLUTE  DETERMINANT  VALUE  LESS  THAN  ERROR  VALUE.  . 

270  JULIET=1 

WRITE  (OUTPUT, 290)  D,  ERR 
RETURN 

280  FORMAT  (20H0***  SINGULAR  MATRIX) 

290  FORMAT  (18H0***  DETERMINANT  =,  1PE13.  5, 24H,  ERROR  SPECIFICATION 
1E13.  5) 

C 

END 


non  nnn  ono  ooo  no  nnn  nnno 


FUNCTION  LNEQT(M,  N,  Nl,  A,  B,  ERROR  ,  Z) 

SOLVES  SIMULTANEOUS  LINEAR  EQUATIONS  BY  GAUSSIAN  REDUCTION. 
SOLVES  A*X=B  FOR  X  ,  AND  STORES  THE  X  VECTOR (S)  IN  B 

REAL  A(M,  M)«B(M»M)  ,  Z(M),  ERROR  ,  RMAX,  RNEXT,  W 


5 

5  INPUT  AND  OUTPUT  LOGICAL  UNITS. . 

COMMON/ 1 0/ I NPUT  ,  OUTPUT, BIF,  OFF,  COF 
INTEGER  OUTPUT, BIF, OFF, COF 
5 


D=1 .  0 
NM1=N-1 

IF  (NM1.EQ.0)  GO  TO  210 
DO  200  J=l, NM1 
J1=J+1 

.  FIND  ELEMENT  OF  COL  J,  ROWS  J-N,  WHICH  HAS  MAX  ABSOLUTE  VALUE. 
LMAX=J 

RMAX=ABS ( A ( J,  J)  > 

DO  110  K=J1,  N 

RNEXT=ABS ( A ( K,  J)  > 

IF  (RMAX.  GE.  RNEXT)  GO  TO  110 

RMAX=RNEXT 

LMAX=K 

110  CONTINUE 

IF  (LMAX.NE.  J)  GO  TO  120 

.  MAX  ELEMENT  IN  COLUMN  IS  ON  DIAGONAL 

IF  ( A (  J,  J)  )  150,  270,  150 

.  MAX  ELEMENT  IS  NOT  ON  DIAGONAL.  EXCHANGE  ROWS  J  AND  LMAX. 

120  DO  130  L=J,  N 

W=A(  J,  L) 

A( J,  L ) =A ( LMAX , L> 

A  ( LMAX,  L  )  =W 
130  CONTINUE 

DO  140  L=l, Nl 
W=B  ( J,  L) 

B  ( J,  L)=B  (LMAX,  L> 

B  (LMAX,  L)=W 
140  CONTINUE 

D=-D 

.  ZERO  COLUMN  J  BELOW  THE  DIAGONAL. 


1 

50 

D=A(  J, 

J)*D 

Z ( J)=l 

.  0/A  (  J,  J) 

DO  190 

K=J1, N 

IF 

( A (K,  J) > 

160, 

190,  160 

1 

60 

W=— 

Z( J)#A(K. 

J) 

DO 

170  L=J1, 

N 

A  ( K,  L)=W*A(  J, 

L)+A(K, L> 

1 

70 

CONTINUE 

DO  180  L=1 , Nl 

B(K,  L )  =W*B  ( J,  L)+B(K,  L> 


non  non 


180  CONTINUE 

190  CONTINUE 
200  CONTINUE 
210  D=A(N, N)*D 

IF  ( A(N,  N) .  EQ.  0.  0 )  GO  TO  270 
Z ( N )  =  1 .  /A  ( N,  N  > 

.  OBTAIN  SOLUTION  BY  BACK  SUBSTITUTION. 

DO  220  L=1 » N1 

B  ( N,  L  )  =Z  (N  > *B  ( N,  L) 

220  CONTINUE 

IF  <NM1.  EQ.  0)  GO  TO  260 
DO  250  K=1 , NM1 
J=N-K 
U1=J+1 

DO  240  L=1 ,  N1 
W=0. 

DO  230  I*J1, N 

W=A (  Ji  I  )*B  ( I,  L)+W 
230  CONTINUE 

B( J,  L)  =  (B( J-  L)-W)*Z(U) 

240  CONTINUE 
250  CONTINUE 
260  LNEQT=0 

IF  (ABS(D). GE.  ERROR)  RETURN 
LNEGT=1 

WRITE  (OUTPUT,  280)  D, ERROR 
RETURN 

.  SINGULAR  MATRIX — MAXIMUM  ELEMENT  IN  COLUMN  IS  ZERO. 

270  LNEQT=3 

WRITE  (OUTPUT,  290) 

RETURN 

280  FORMAT  (18H0***  DETERMINANT  1PE13.  5,  24H,  ERROR  SPECIFICATION 
1E13.  5) 

290  FORMAT  (20H0***  SINGULAR  MATRIX) 


C 


END 


PROGRAM  HYDREX3 


c 


* 

* 

* 

* 


c 


150 

1 

2 


* 


PROGRAM  HVDREX3 

CHAR AC TER *25  PANFIL, MATFIL 
COMMON/BD/XPANC 120), YPANC 120), ZPANC 120), AREA ( 120), 

ST  (  120),  ACN  (  1 20  >  ,  ACNW(  120) ,  AN < 120, 3) ,  EC  120),  PC  120,  6), 
PRFSC120), ST0LDC120), PXC120, 6) 

COMMON/FS/AKZC 100, 100), SSC100, 100), CCC100, 100), 

DKXC 100), DKYC 100), AKXC 100), AKYC 100) 

C0MMQN/BD2/XPTC 150), YPTC150),  ZPTC150), WRFC150), 
WRFRC150), KKC150, 4) 

COMMON/A/NPAN,  NPT ,  GEE,  RHO,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
DIMENSION  PF  C  6 ) ,  PBC6), PT ( 6 ) 

COMMON/WAVEX /OMEGA 

COMMON/BP /BPRESC 120) , TPRES' 120) 

COMPLEX  EYE 
EYE=  ( 0.  0,  1.  0) 


TYPE  1 

ACCEPT  4, PANFIL 
TYptr  2 

ACCEPT  4, MATFIL 

0PENCUNIT=2,  FILE=PANFIL, TYPE= 'OLD  '  ) 

OPEN  C  UN I T=3,  FILE=MATFIL, FORM= 'UNFORMATTED ',  TYPE= 'NEW ' ) 
OPEN C UN I T=99,  FILE='X.  DAT', FORM= 'UNFORMATTED ' , TYPE  ='NEW') 
CALL  EBD 
CALL  POTST 
WRITEC6, 6) 

WR I  TEC  6,  7)  U,  ANC  J,  1  ) ,  AN  C  J,  2  ) ,  AN  <  J,  3 ) , 

XP AN  C  J ) , YP AN  C  J ) ,  ZP AN  C  J ) , AREA  C  J ) 

CONTINUE 

STOP 

FORMAT C  '  Input  name  of  CP AN 3  file  >'*) 

FORMAT C  '  Input  name  of  CMAT3  file  >'$> 

FORMAT ( A ) 

FORMAT  C  '  J  ' ,  9X,  'NX',9X,  'NY',9X,  'NZ',9X,  'XP',9X, 

'YP  ',  9X,  '  ZP  ' ,  9X,  'AREA') 

FORMAT  C  IX,  15,  7F11.  4) 

END 


7 


*  * 


SUBROUTINE  PREP(J) 

COMMON/BD/XPANC 120), YPAN(120>,  ZF AN<120), AREA ( *20 ) ,  ST ( 120 ) , 
ACN( 120) ,  ACNW< 120) , AN< 120, 3 ) , E ( 120 ) , P ( 120, 6 ) , PRFS( 120), 
STOLD< 120) ,  PX( 120,  6) 

COMMON/ BD2/XPT ( 1 50 ) , YPT<150>, ZPT(150), WRF < 1 50 ) , WRFR ( 1 50 ) , 

*  KK  ( 1 50,  4  ) 

COMMON/ARE/RR ( 500 ) , XZ J ( 200 > , YX J ( 200 ) , ZYJ(200) 

ZYT=0.  0 
YXT =0.  00 
XZT=0.  00 

J4=J*4 

JT=4 

IF(KK(  J,  4).  EQ.  O)  JT=3 
DO  20  JU=1,JT 

J4=J4+1 

J2=l 

IF<JJ.  LT.  JT)  J2=JJ+1 
KF=KK( J,  JJ > 

KG=KK(  J,  J 2) 

AG=XPT ( KG ) 

BG=YPT(KG) 

CG=ZF7(KG> 

AF=XPT (KF) 

BF=YPT(KF) 

CF=ZPT ( KF ) 

R=SQRT ( ( AF-AG ) **2+  <  BF-BG ) **2+ ( CF-CG ) **2 ) 

XT=AF-XPAN( J) 

YT=BF-YPAN( J) 

ZT=CF-ZPAN( J) 

ANX= ( AF-AG ) /R 
ANY=< BF-BG )/R 
ANZ=(CF-CG>/R 
DOT =ANX*XT+ANY*YT+ANZ*ZT 
XT=XT— DOT*ANX 
YT=YT-DOT*ANY 
ZT=ZT-DOT*ANZ 
ZYT=ZYT+ZT*ANY-ANZ*YT 
YXT=YXT+YT*ANX-ANY*XT 
XZT=XZT+XT*ANZ-ANX*ZT 
RR( J4)=R 
20  CONTINUE 

X  Z  J ( J ) =S I GN ( AN  <  J , 2 ) ,  XZT) 

YX J ( J ) =S I GN ( AN ( J,  3) ,  YXT) 

ZYJ ( J ) =SIGN  <  AN  <  J,  1),  ZYT) 

RETURN 

FND 


SUBROUTINE  SELF <  AF,  BF,  CF,  AG,  BG,  CG,  FEE) 

REAL  LB21 , LA21 

ASG=AF*AF+3F*BF+CF*CF 

BSQ=AG*AG+BG*BG+CG*CG 

ADB=AF*AG+BF*BG+CF*CG 

ADB2=ADB+ADB 

ASAS= ( AF*BG-BF*AG ) **2+  <  CF*BG-BF*CG ) **2+ ( AF*CG-BF*AG ) **2 

FF=0.  00 

DO  15  MK=1,  10 

DO  15  NK=1,  MK 

LA21=FL0AT(NK-MK> 

A2SQ=ASQ*LA21*LA21 
DO  15  ML= 1 , 1 1— MK 
DO  15  NL=1, 11-ML 

-  LB21=FL0AT<NL-tfL)  - -  - _ _ 

IF < LA21 .  NE.  0.  )  GO  TO  5 
IF ( LB2 1 .  LT.  0.  )  GO  TO  5 
GO  TO  15 

5  R=SGRT(A2SQ+ABD2*LA21#LB21+BSQ*LB21*LB21 ) 

FF=FF+1. 0/R 

15  CONTINUE 

FEE=FF*ASAS*0.  002 

RETURN 

END 


DDDO 


SUBROUTINE  SOLI D ( XPN, G, NS  I DE ) 

DIMENSION  CS(4). SN(4), Z<4>, XPN (3, 4> 

G=— 6. 2B318530S 

ACR  1 2=XPN  (  1,  1  )*XPN(  1. 2)  +  XPN(2,  1 >*XPN(2,  2>+Y,-'N<0  *XPN(3,  2) 

ACR  13=XPN(  1  ,  1  )*XPN<  1,  3 )  +  XPN  (  2/  1  )*XPN<2,  3>+a 1  >*XPN(3,  3) 

ACR23=XFN( 1, 2>*XPN< 1, 3)+XPN(2, 2)*XPN<2, 3)+XPN<3,  2)*XPN(3,  ?) 

IF  ( NS I DE  EQ.  4)  GO  TO  40 

G=~3.  141592659 

CS ( 1 ) =ACR23-ACR 1 3* ACR 1 2 

CS ( 2 ) =ACR 13- ACR 1 2* ACR 23 

CS  ( 3 )  =  ACR  12- ACR 23# ACR  13 

SN ( 1 ) =  XPN ( 1 ,  1 )*< XPN (2, 2)*XPN(3, 3) -XPN (3, 2>*XPN(2,  3) )  + 

+  XPN  (2,  1  )*  (  XPN  (3,  2  )  #XPN  (  1, 3)-XPN< 1,  2)*XPNC3,  3)  )  + 

+  XPN (3/  1 >*( XPN( 1, 2>*XPN<2, 3)-XPN<2, 2>*XPN< I,  3) > 

SN ( 2 ) ~SN ( 1 ) 

SN ( 3 ) =SN ( 1 ) 

SN  ( 4  )  =0. 

GO  TO  50 

40  ACR 1 4= XPN ( 1 <  1 )*XPN( 1. 4)+XPN<2, 1 >*XPN<2, 4)+XPN(3, 1 >*XPN(3, 4) 

ACR24=XPN( 1 ,  2>*XPN< 1,  4>+XPN(2,  2>*XPN<2, 4>+XPN(3,  2)*XPN<3,  4) 
ACR34=XPN( 1, 3)*XPN< 1, 4>+XPN<2,  3>*XPNC2, 4)  +  XPN(3,  3>*XPN(3,  4) 
CS( 1 >=ACR24-ACR14*ACR12 
CS  ( 2 )  =ACR  13-ACR23-&ACR  12 
CS  ( 3 )  =ACR24— ACR34*ACR23 
CS ( 4 ) =ACR 13— ACR 3 4* ACR 14 

E241  =  XPN ( 2;  2>*XPN<3,  4) -XPN  (3, 2)*XPN(2, 4) 

B242=XPN<3.  2 ) * XPN ( 1,  4>-XPN( 1, 2>*XPNC3, 4) 

B243=XPN ( 1 j 2>*XPN(2, 4) -XPN (2, 2>*XPN< 1. 4) 

B 1 31 =XPN  ( 2,  1  >*XPN<3,  3) -XPN  (3,  1  >*XPN(2,  3> 

B 1 32=XPN ( 3.  1 )*XPN< 1. 3)-XPN< 1,  1 >*XPN(3, 3) 

B133=XPN(1,  1  >*XPN(2,  3)-XPN(2,  1)*XPN(1,3) 

SNC 1 >=XPN< 1.  1  )*B241  +  XPN(2,  1 ) *B242+XPN ( 3,  1 >*B243 
SN ( 2 ) =- <  XPN ( 1 . 2)*E131  +  XPN<2, 2 > #B 132+XPN C 3, 2>*B133) 

SN ( 3 ) =- ( XPN ( 1 ,  3)*B241+XPN<2, 3 ) *B242+XPN ( 3, 3>*B243) 

SN ( 4 ) =  XPN ( 1 ,  4)*B131+XPN(2, 4 ) »B 132+XPN ( 3, 4>*B133 
50  CONTINUE 

TYPE  8844,  SN  (  1  ),  CS(  1  ) 

TYPE  8844, SN < 2 ) , CS<2) 

--  TYPE  8844,  SN(3)^CS<3)  -  -  —  .  .  . 

TYPE  8844, SN<4), CS(4) 

8844  FORMAT (  '  SN,  CS=  ' ,  2F1  5.  8  > 

SUM=SN  (  1  )  +  SN  (  2  )  +SN  (  3  )  +SN  (  4  ) 

IF  ( ABS  (  SUM ) .  GT.  0.01)  GO  TO  25 

IF< ABS(CS(1 )  ) .  GT.  ABS(SN< 1 )  )  )  GO  TO  25 

IF(ABS(CS(2)  ) .  GT.  ABSCSNC2)  )  )  GO  TO  25 

IF(ABS(CS(3)  ).  GT.  ABS  (  SN  <  3  )  )  )  GO  TO  25 

1090  G=SUM+. 25 

IF  <  NS  I  DE.  EG.  3)  G=SUM*.  1666666667 
RETURN 

25  ST=SN ( NS IDE ) 

DO  30  1  =  1 , NS  IDE 

I F  (  ( ABS  (  CS  (  I  )  ).  LT.  9E-8 ) .  AND.  (ABS(SN(  I  )  ).  LT.  .  9E-05)  ) 

+  GO  TO  1090 

IF(ST*SNCI).  LT.  0.  )  GO  TO  1090 
ST=SN( I ) 

C2=CS  (  I  )  /SQRT ( SN ( I ) **2+CS ( I > **2 ) 

G=G+AC0S(C2) 

30  CONTINUE 

RETURN 
END 


SUBROUTINE  EBD 

C  INITIALIZE  PANELS  AND  COMPUTE  BODY  MATRIX 
C 

COMMON/BD/XPAN( 120), YPAN( 120), ZPAN( 120), AREA ( 120) , ST ( 120), 

*  ACN ( 120), ACNWC 120) , AN ( 120,  3 ) , E ( 120 > , P < 120, 6 ) ,  PRFS( 120) , 

*  STOLD ( 1 20 ) ,  P  X ( 1 20, 6 ) 

C0MM0N/BD2/XPT< 150),  YPT(150>, ZPT(150),  WRF ( 1 50 ) ,  WRFR ( 1 50 ) , 

*  KK  ( 1 50,  4 ) 

COMMON/A/NPAN,  NPT ,  GEE,  RHO,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
DIMENSION  EP ( 120 ) , EPP ( 120 ) 

COMPLEX  EYE 

C  READ  IN  BODY  PANEL  PARAMETERS 
101  FORMAT (415) 

100  F0RMAT(3F10. 0) 

103  F0RMAT(3F10. 2) 

104  FORMAT (13) 

C  NUMBER  OF  POINTS  AND  PANELS 
READ (2,  101  >  NPT,  NPAN 
TYPE  101,  NPT,  NPAN 
C  COORDI ANTES  OF  POINTS 

READ (2, 100)  (XPT(N), YPT(N) , ZPTCN), N=l, NPT) 

DO  7777  N=1 , NPT 

TYPE  103,  XPT(N),  'TT(N),  ZPT(N) 

7777  CONTINUE 

C  DEFINE  CORNER  PINTS  OF  EACH  PANEL 

READ (2, 101)  (KK(N, 1 ) ,  KK  ( N,  2  ) ,  KK  ( N,  3  > ,  KK  <  N,  4 ) ,  N=1 , NPAN) 

C  COMPUTE  PANEL  AREAS 

DO  150  U=1 ,  NPAN 
K1=KK( J,  1 > 

K2=KK(U,  2) 

K3=KK< J, 3) 

K4=KK< J, 4) 

IF (K4.  EG.  0)  GO  TO  8 

XPAN(U)  =  (XPT(K1 >+XPT(K2)+XPT(K3)+XPT(K4> )*0.  25 
YP AN (J)  =  (YPT(K1 ) +YPT ( K2 ) +YPT ( K3 ) +YPT ( K4 ) )*0.  25 
ZPAN< J)  =  (ZPT(K1 )+ZPT(K2)+ZPTCK3)+ZPT(K4) )*0.  25 
GO  TO  9 

C  TRIANGULAR  PANELS 

8  XPANC J)=(XPT(K1 )+XPT(K2)+XPT(K3) ) /3. 0 
YPAN(U)  =  (YPT(K1 )+YPT(K2)+YPT(K3) )/3.  0 
ZPAN(J)  =  (ZPT(K1 )+ZPT(K2)  +  ZPT(K3) )/3.  0 
K4=K3 

9  XA=XPT(K3)-XPT(K1 ) 

XB=XPT(K4)-XPT(K2) 

YA=YPT(K3)-YPT(K1 ) 

YB=YPT ( K4 ) — YPT ( K2 ) 

ZA=ZPT(K3)-ZPT(K1 ) 

ZB=ZPT  (  K4  )  -ZPT-C  K2  )■ . . - 

C  COMPUTE  PANEL  AREAS 
AZ=XA*YB-YA*XB 
AX=YA*ZB-ZA*YB 
AY=7A*XB  — XA-B-7B 
ARE=SQRT ( AX*AX+AY*AY+AZ*AZ ) 

AREA ( U ) =ARE*0.  50 
AN ( J, 1 )=-AX/ARE 
AN ( J, 2 ) =-AY/ ARE 
AN ( J, 3 ) =-AZ / ARE 
150  CONTINUE 

808  FORMAT(  IX,  15,  5F1  1.  4) 

DO  1308  J=1 ,  NPAN 
JJU=J 

CALL  PRFP(JJJ) 

ST  ( J )  =0.  00 
DO  1308  K=1 , 6 
PX  (  J,  K  )  =0.  00 

1308  CONTINUE 

DO  308  J=1 ,  NPAN 
JJJ=J 

AX=-AN  <  J,  1 ) 

AY=-AN ( J, 2) 

AZ=-AN ( J, 3) 

XF=XPAN( J> 

YF=YPAN ( J ) 

ZF=ZP AN ( J ) 

DO  157  L=1 , NPT 

WRF  ( L  )  =SQRT  (  (XPT(L)-XF)  ♦•»2+  <  YPT  <  L )  -YF )  **2+  (  ZPT  (L )  —  ZF )  ##2 ) 
157  WRFR (L)=SQRT  < ( XPT ( L ) -XF ) **2+ C YPT ( L ) -YF ) **2+ < ZPT (L ) +ZF ) **2 ) 


DO  500  1=1 j 3 

WR  I TE  (  3  )  (AN(  J,  I  )  ,  J=l»  NPAN) 

500  CONTINUE 

WR I TE ( 3 )  <XPAN< J), J=l,  NPAN) 

WR I TE ( 3 )  (YPAN(J),  J=l,  NPAN) 

WR I TE ( 3 )  (ZPAN(J), J=l, NPAN) 

WR I TE ( 3 )  (AREA(J), J=l, NPAN) 

DO  309  JL=1,  NPAN 
JLJ=JL 

CALL  GE  (  XF<  YF,  ZF,  JLJ,  VX,  VY,  VZ,  VXR,  VYR,  VZR,  JJJ> 

VX=VX+VXR 

VY=VY+VYR 

VZ=VZ+VZR 

C  COMPUTE  NORMAL  VELOCITY  AT  PANEL  J  DUE  TO  PANEL  JL 

E  (  JL )  =AX*VX-t-AY*VY+AZ*VZ 
C  INCREMENT  PX  MATIRX 

FR1=-AREA( J)*VX*AN( J, 1) 

FR2=-AREA( J)*VX*AN( J, 2) 

FR3=-AREA( J)*VX*AN( J, 3) 

P  X ( JL,  1 ) =P  X ( JL,  1 ) +FR 1 
PX  ( JL,  2 )  =PX  ( JL,  2J+FR2 
PX  ( JL,  3)=PX(  JL,  3  )  +FR3 
P  X  C  JL,  4)=PX( JL,  4)+YF*FR3-ZF*FR2 
PX  C  JL,  5 ) =PX ( JL,  5)+ZF*FRl-XF*FR3 
PX( JL,  6)=PX< JL,  6 )  +  XF*FR2~YF*FR 1 
309  CONTINUE 

WR I TE < 99 )  (E( JL) ,  JL=1,  NPAN) 

308  CONTINUE 

DO  2424  K=l,  6 

2424  WR ITE (3 )  (PX ( JL,  K) ,  JL=1,  NPAN) 

CLOSE  (UNIT=99  > 

C  INVERT  E  MATRIX 

CALL  MATIN ( NPAN ) 

RETURN 

END 


SUBROUTINE  MATIN(NPAN) 

C  INVERST  MATRIX 

DIMENSION  E( 120,  120 ) ,  BB ( 120 ) , EST ( 120) 

OPEN ( UNIT=99, FILE='SCR', FORM=  'UNFORMATTED ',  TYPE 
DO  120  J=1 , NPAN 

120  READ ( 99 )  ( E ( J,  I ) ,  I  =  1 , NP AN ) 

DO  130  J=l,  NPAN 
DO  11  MM=1 ,  NPAN 
EST  ( MM )  =0.  00 
11  BB (MM ) =0. 00 

BB ( J ) =1 . 0 
EST ( J ) =1 . 0/E( J, J) 

DO  17  NIT=1 , 6 
DO  17  K=l,  NPAN 
B=BB(K) 

DO  15  1=1, NPAN 

15  IF(I.NE.  K)  B=B-E(K,  I)*EST(I) 

EST(K)=B/E(K, K) 

17  CONTINUE 

WR I TE ( 3 )  (EST(K),  K=l,  NPAN) 

130  CONTINUE 

RETURN 
END 


= 'OLD ' 


20 

84 

85 
7371 

5590 

5591 


SUBROUTINE  GE (  XF ,  YF,  ZF,  J,  VI «  V2,  V3,  V1R,  V2R,  V3R,  NBT) 
COMMON/BD/XP AN ( 120 ) , YPAN(120),  ZPAN ( 120 ) < AREA<120),  ST(120), 

*  ACN( 120) . ACNW( 120) ,  AN ( 1 20, 3 > , E < 120 ) . P ( 120, 6 ) , PRFS< 120), 

*  STOLD( 120) , PX( 120, 6) 

C0MM0N/BD2/ XPT ( 1 50 ) , YPT ( 1 50  > ,  ZPT ( *  50 ) , WRF (150),  WRFR (150) 

*  ,  KK  (  1  50,  4  ) 

COMMON/ ARE/RR ( 500 ) , XZU<200), YXJ(200), ZYJ(200) 

DIMENSION  XSA (3, 4), XFA(3>, XSAR(3, 4) 

J4=J*4 
V 1  =0.  00 
V2=0.  00 
V3=0.  00 
V1R=0.  00 
V2R=0.  00 
V3R=0.  00 
XNJ=AN( J, 1 ) 

YNJ=AN( J. 2) 

ZNJ=AN(  J, 3) 

NSIDE=4 

IF(KK(  J,  4).  EG.  0)  NSIDE=3 

DO  20  JJ=1, NSIDE 

J2=l 

IF(JJ.  LT.  NSIDE)  J2=JJ+ 1 
J4= J4+ 1 
KF=KK( J, JJ) 

AF=XPT(KF) 

BF=YPT(KF) 

CF=ZPT(KF) 

R=RR( J4) 

KG=KK ( J, J2) 

ANX= ( AF— XPT ( KG ) ) /R 

ANY= ( BF-YPT ( KG ) ) /R 

ANZ= ( CF— ZPT ( KG ) ) /R 

A=A F-XF 

B=BF-YF 

C—CF—ZF 

TX=XZJ< J)*ANZ-YXJ( J)*ANY 

TY=YX J ( J ) *ANX— Z Y J ( J ) *ANZ 

TZ=ZYJ( J)*ANY-XZJ( J)*ANX 

EX1=A*ANX+B*ANY+C*ANZ 

CALL  GO(EXl, R,  FF,  WRF ( KF ) ,  WRF ( KG ) ) 

V1=V1+FF*TX 
V2=V2+FF*TY 
V3=V3+FF*TZ 
XSA ( 1 ,  JJ) =— A/WRF ( KF ) 

XSA (2, JJ ) =— B/WRF ( KF ) 

XSA ( 3, JJ ) =— C/WRF ( KF ) 

EX 1R=EX 1+2.  0*ZF*ANZ 
CR=— CF- ZF 

CALL  GO ( EX 1R ,  R,  FR,  WRFR ( KF ), WRFR ( KG ) ) 

V1R=V1R-FR*TX 
V2R=V2R-FR*TY 
V3R=V3R+FR*TZ 
XSAR ( 1 ,  JJ)=-A/WRFR (KF) 

XSAR ( 2,  JJ )=-B/WRFR (KF ) 

XSAR ( 3, JJ ) =CR/WRFR (KF ) 

CONTINUE 

G=6.  283185307 

IF(  J.  EQ.  NBT)  GO  TO  84 

CALL  SOLID(XSA,  G, NSIDE) 

AGG=A*  XN J+B* YNJ+C*ZNJ 
G=-S I GN '  G« AGG) 

CONTINUE 

CALL  SOLID(XSAR,  GR,  NSIDE) 

AGGR=A*XNJ+B*YNJ-CR*ZNJ 
GR=SIGN(GR, AGGR ) 

CONTINUE 

FORMAT (  '  G,  GR=  ' ,  2F15.  5) 

V1=V1+XNJ*G 

V2=V2+YNJ*G 

V3=V3+ZNJ*G 

V1R=V1R+XNJ*GR 

V2R=V2R+YNJ*GR 

V3R=V3R-ZNJ*GR 

FORMAT (  '  VI,  V2,  V3«',  3F15.  5) 

FORMAT (  '  V1R,  V2R,  V3R*',  3F15.  5) 

RETURN 

END 


SUBROUTINE  POTST 

COMMON /BD/X PAN ( 120),  YPAN ( 120 ) ,  ZPAN<120),  AREA<120),  ST<120), 

*  ACN ( 1 20 ) ,  ACNW ( 120 ) ,  AN ( 120,  3 ) , E( 120) , P ( 120. 6 ) ,  PRFS(120>, 

*  STOLD( 120) , PX< 120, 6) 

C0MM0N/BD2/XPK  150),  YPT(  150),  ZPT(150>,  WRF  ( 1 50 ) ,  WRFR  ( 1 50 ) , 

*  KK  ( 1  50,  4 ) 

COMMQN/A/NPAN,  NPT,  GEE,  RHO,  NKX,  NKY,  EYE,  DT,  TIM,  UFWD 
COMPLEX  A,  B,  EYE 

DIMENSION  XPSL (3,  4),  XPSLRO,  4),  PBB(120,  120) 

COMMON /PTST  /ARE4  C  200,  4),  X4(200,  4),  Y4(200,  4),  Z4<200,  4) 

*  , SEL ( 200, 4 ) 

DO  1500  J=1 , NP AN 
ARE4  (  J,  4 )  =— 1 .  0 
JT=4 

IF<KK<  J,  4).  EG.  0)  JT=3 
DO  1500  JJ=1,JT 
J2=l 

IF(JJ.  LT.  JT)  J2= J J+l 
KF=KK ( J,  JJ> 

KG=KK( J,  J2 ) 

X4 ( J,  JJ)  =  ( XPT ( KF )  +  XPT (KG )+XPAN( J) ) /3.  0 
Y4(J,  JJ)=(YPT(KF)+YPT(KG)+YPAN< J) ) /3.  0 
Z4(J,  JJ)=(ZPT(KF)+ZPT(KG;+ZPAN< J) >/3.  0 
AF=XPT ( KF)-XPAN  <  J ) 

BF=YPT(KF;-YPAN( J) 

CF=ZPT ( KF )-ZPAN ( J ) 

AG=XPT ( KG )— XPAN ( J ) 

BG=YPT ( KG ) -YPAN ( J ) 

CG=ZPT(KG)-ZPAN( J) 

CALL  SELF<AF,  BF,  CF,  AG,  BG,  CG,  FEE) 

SEL ( J,  J J ) =FEE 
CR — AF*BG— BF*AG 
AR=BF*CG-CF*BG 
BR=CF*AG-AF*CG 

ARE4 ( J,  JJ)=0.  5*SQRT(AR*AR+BR*BR+CR*CR) 

1500  CONTINUE 

DO  127  NJ=1 ,  NPAN 
DO  1277  MU=1 , NPAN 
1277  PBB(NJ, MJ)=0. 00 

P  ( NJ,  1  )  =0.  00 
P  ( NJ,  2  )  =0.  00 
P(NJ,  3  )  =0.  00 
P  ( N  J,  4  )  =0.  00 
P(NJ,  5  )  =0.  00 
P  ( N  J,  6  )  —0.  00 
DO  128  NK=1, 4 
ARN=ARE4(NJ, NK ) 

IF(ARN.  LT.  0.  0)  GO  TO  128 

P1=0.  0 

P2=0.  O 

P3=Q.  0 

P4=0.  0 

P  5=0.  0 

P6=0.  0 

X=X4 ( NJ,  NK) 

Y=Y4 ( NJ,  NK) 

Z=Z4 ( NJ,  NK) 

DO  138  M J=1 ,  NPAN 
DO  138  MK=1, 4 
XF=X4(MJ, MK) 

YF=Y4 ( MJ,  MK) 

ZF=Z4 ( MJ,  MK) 

ARM=ARE4(MJ,  MK) 

IF<ARM.  LT.  0.  00)  GO  TO  138 
IF<NJ.  NE.  MJ)  GO  TO  140 
IF(MK.  NE.  NK)  GO  TO  140 
FR A=SEL ( M J,  MK ) /ARM 
GO  TO  1380 
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